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1.  INTRODUCTION 


This  report  is  concerned  with  the  development  of  a digitally  generated 
contour  .nap  to  be  displayed  on  standard  raster  TV  for  use  In  Army  aircraft. 

The  requirement  for  a display  of  this  type  is  generated  by  the  operations  of 
Army  aircraft  in  nap-of-the-earth  (NOE)  flight  during  both  day  and  night  opera- 
tion. NOE  flight  in  this  case  refers  specifically  to  pilotage  at  or  below  tree 
top  level. 

Current  operations  of  this  type  are  carried  out  with  the  pilot  dedicated 
solely  to  the  task  of  piloting  the  vehicle.  During  this  mode  of  flight,  the 
pilot  has  the  time  neither  to  navigate  nor  communicate  with  anyone  other  than 
the  copilot.  For  this  reason  the  performance  of  all  other  tasks  are  left  to 
the  copilot.  In  addition,  the  copilot  must  cue  the  pilot  as  to  the  character 
of  the  upcoming  terrain  including  general  navigational  instructions.  Requited 
terrain  information  is  obtained  by  the  copilot  from  hand-held  maps.  The  co- 
pilot mentally  integrates  the  map  contour  information  and  verbally  passes  up- 
coming terrain  characteristics  to  the  pilot.  This  task  performed  by  the  co- 
pilot would  be  difficult  enough  under  normal  conditions,  but  in  the  environment 
of  a vibrating  helicopter  at  night,  the  task  becomes  even  more  difficult. 

The  first  phase  of  this  study  is  directed  toward  improving  the  transfei 
of  information  concerning  the  aDDroaching  terrain  to  the  pilot,  thereby  re- 
ducing the  hazards  of  NOE  night  flight. 

2.  BASIC  CONCEPT 


Any  study  designed  to  solve  a particular  problem  must  begin  with  an  at- 
tempt to  determine  whether  existing  equipment  is  available  to  solve  the  problem 
being  investigated. 

Map  display  systems  for  aircraft  are  not  a new  concept.  Currently  there 
are  in  existance  various  analog  map  displays  such  as  map  plotters,  projected 
map  displays,  and  also  stroke  written  or  CRT  type  map  displays.  Each  of  the 
above  suffers  from  at  least  one  drawback,  namely  the  fact  that  they  require 
valuable  instrument  panel  space.  In  addition,  most  of  the  projected  map  and 
map  plotters  present  only  a north-up  display  as  opposed  to  an  aircraft  heading- 
up  display.  Those  units  which  can  produce  a heading-up  display,  do  so  at  a 
significant  increase  in  unit  cost.  Because  of  these  factors  and  an  indication 
that  future  Army  aircraft  may  have  an  integrated  digital  display  and  possibly 
Forward  Looking  Infra-Red  (FLIR)  or  Low  Light  Level  Television  (LLLTV) , another 
avenue  of  approach  was  selected  tor  Investigation. 

An  alternative  technique  to  providing  a map  display  is  to  digitally  gen- 
erate the  map  (DGM)  and  display  the  information  in  standard  raster  scan  tele- 
vision format.  Provided  the  DGM  could  be  proven  feasible,  several  advantages 
were  immediately  apparent,  the  information  could  be  displayed  on  panel  mounted 
display  (PMD)  associated  wich  the  FLIR  OR  LLLTV  or  even  a Helmet  Mounted  Dis- 
play (HMD),  either  alone  or  superimposed  by  simply  video  mixing.  The  require- 
ment for  a separate  panel  display  would  thereby  be  eliminated.  In  addition, 
since  data  for  the  map  would  be  in  digital  form,  the  technique  would  provide 
the  capability  for  a much  more  versatile  display.  A heading-up  display,  air- 
craft position  indication,  and  map  scale  changes  would  present  no  problem 
using  the  DGM  System. 
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With  the  immergence  of  the  microprocessor  and  the  significant  reduction 
_n  the  size  and  cost  of  computer  memories  required  for  data  storage,  the  DGM 
ippeared  to  be  a reasonable  area  for  investigation. 

DEFINITION  OF  DIGITALLY  GENERATED  MAP  SYSTEM 

Typical  maps  used  by  Army  aviators  have  scales  of  1:25,000,  1:50,000  or 
1:100,000.  Since  these  maps  contain  a considerable  amount  of  information, 
three  problems  immediately  present  themselves.  The  first  is  how  much  of  the 
data  from  the  maps  must  be  stored,  second,  what  format  or  scheme  is  best  for 
storing  the  data  and  third,  from  where  is  the  digital  data  to  be  obtained. 

Currently,  digital  terrain  elevation  information  in  grid  line  format  is 
available  from  the  Defense  Mapping  Agency  for  certain  areas  of  the  United  States. 
The  grid  line  format  refers  to  the  fact  that  elevation  information  is  stored  cor 
responding  to  fixed  X-Y  grid  increments  over  the  entire  map.  Since  the  size 
of  the  map  and  grid  resolution  is  known,  the  number  of  data  points  can  be  de- 
termined, thus  fixing  the  size  of  the  data  base.  However,  it  was  felt  that 
data  storage  in  grid  format  would  not  offer  the  best  approach,  since  it  re- 
quires computer  time  to  generate  contour  information  from  the  grid  data. 
Therefore,  direct  storage  of  data  in  contour  format  seemed  appropriate. 

Contour  format  means  the  DGM  data  will  be  piece-wise  linear  approximation 
to  the  contour  lines.  Each  pair  of  consecutive  points  defines  the  beginning 
and  end  of  a line  segment.  The  points  are  stored  in  contiguous  order.  In 
other  words,  a line  drawn  sequentially  connecting  the  points  would  trace  out  a 
contour  closing  on  itself  and  then  begin  to  trace  the  next  contour  interval. 

Storing  the  data  in  contour  format  eliminates  the  computational  time  re- 
quired to  convert  from  grid  to  contour  data  format.  It  also  provides  another 
distinct  advantage  in  that  it  facilitates  a variable  data  density.  This  al- 
lows more  detailed  information  to  be  encoded  where  terrain  variations  are 
severe  and  less  information  in  areas  of  less  terrain  variation.  A prime  ex- 
ample of  the  advantage  of  variable  data  density  (contour  format)  over  fixed 
data  density  (grid  format)  is  shown  by  the  fact  that  grid  data  provides  the 
same  data  density  over  a large  lake  as  it  does  over  the  peak  of  a mountain, 
whereas  the  contour  format  can  provide  greater  data  iiversity  in  the  mountain- 
ous area  where  it  is  needed  and  none  over  water  areas.  In  using  a variable 
data  density,  however,  the  size  of  the  data  base  required  to  digitally  encode 
a given  size  map  is  undefined.  Data  base  size  now  becomes  a function  of  the 
severity  of  the  terrain  in  the  area  mapped. 

It  is  possible  to  develop  a computer  program  to  generate  a contour  data 
base  from  the  Defense  Mapping  Agency  grid  format  data  base.  However,  it  was 
felt  that  development  of  the  data  conversion  program  was  too  time  consuming  a 
project  on  which  to  expend  much  effort  prior  to  the  establishment  of  the  fea- 
sibility of  the  DGM  system.  For  this  reason,  a contour  data  base  was  encoded 
manually  from  existing  maps  for  usage  as  a test  model.  Therefore,  in  summary, 
a contour  format  data  base  was  employed  in  this  study  and  because  of  the  nature 
of  the  data  base,  the  amount  of  data  required  for  a given  map  size  was  vari- 
able. Additionally,  for  the  purposes  of  this  study,  the  data  bases  were  gen- 
erated manually. 


4.  DIGITALLY  GENERATED  HAP  EVALUATION  SYSTEM 


In  the  laboratory  test  facility,  an  airborne  digital  computer  (a  Singer 
SKC-2000)  was  used  to  develop  the  computer  programs  to  generate  data  for  the 
raster  display.  A special  digital  to  video  converter  (DVC)  was  fabricated  in- 
house  specially  designed  to  interface  with  the  airborne  computer.  The  SKC-2000 
computer  was  chosen  since  an  identical  computer  was  installed  on  the  labora- 
tory's CH53  Experimental  Vehicle  for  Avionics  Research  (EVAR) ; therefore,  after 
laboratory  development  of  the  software  programs,  the  system  could  be  transfer- 
red to  flight  test  with  minimum  difficulty.  The  design  of  the  DVC  was  such 
that  it  was  rugged  enough  for  use  during  the  flight  testing. 

The  SKC-2000  is  a 32  bit  hexadecimal  machine  with  hardware  floating  point. 
Both  the  laboratory  and  airborne  computers  contain  sixteen  thousand  words  of 
memory.  Each  machine  has  a teletype  with  cassettes  and  a standard  size  air- 
borne magnetic  tape  unit.  The  laboratory  model  has,  in  addition,  a paper  tape 
punch  and  reader,  a card  reader,  and  a printer/plotter.  The  printer/plotter 
allowed  the  development  of  the  computer  programs  to  be  undertaken  prior  to  the 
fabrication  of  the  DVC.  Obviously,  the  laboratory  evaluation  system  contained 
sufficient  flexibility  for  a study  of  this  type.  All  programming  was  done  in 
assembly  language  and  a listing  of  the  computer  assembly  language  instruction 
set  is  given  in  Appendix  A.  The  instruction  set  contains  several  bit  manipu- 
lation instructions  which  proved  to  be  extremely  useful,  especially  in  encoding 
the  data  base. 

5.  INPUT  DATA  GENERATION 


As  previously  mentioned,  the  digital  map  data  (i.e. , contour  lines)  are 
piece-wise  linear  approximations  to  the  contour  lines.  A pair  of  points  de- 
fine the  start  and  end  of  each  line  segment  and  the  sequence  of  storage  of  the 
points  gives  the  path  of  the  contour. 

The  raw  data  is  obtained  in  decimal  format  with  X coordinate  and  Y co- 
ordinate specified  for  each  point.  Some  reference  point  must  be  chosen  as  the 
origin  (0,0)  of  the  data;  therefore,  the  lower  left  corner  of  the  area  to  be 
mapped  was  selected.  A data  point  beginning  a new  contour  interval  is  speci- 
ally flagged  to  indicate  a contour  connecting  line  (non-contour  line) , enabling 
the  elimination  of  the  line  during  display. 

Since  the  data  in  decimal  format  is  not  directly  usable  by  the  computer, 
a program  was  written  to  convert  it  to  fixed  po^t  binary  data.  The  program 
listing  is  found  in  Appendix  B.  Some  use  was  made  of  the  architecture  of  the 
machine  in  converting  to  the  binary  format.  Since  the  computer  is  capable  of 
both  full  word  (32  bits)  and  half  word  (16  bit)  addressing,  a special  scheme 
for  storing  the  binary  data  was  used.  Two  types  of  data  words  were  employed. 
The  first  type  is  called  a start  point,  which  is  the  absolute  value  of  the 
location  of  the  data  point  referenced  to  the  origin  (0,0).  The  start  point 
data  is  encoded  as  two  consecutive  16  bit  words,  one  for  X-position  and  other 
for  Y-position.  A start  point  is  identified  by  the  most  significant  bit  of 
the  first  16  bit  word  being  set  to  one.  A hidden  line  indication  is  incorpora- 
ted by  using  the  first  bit  of  the  second  16  bit  word  as  that  indicator.  A one 
in  this  bit  position  signifies  the  data  point  is  a contour  connecting  line 


rather  than  a contour  line  itself  and  should  not  be  displayed.  Therefore,  15 
bits  remain  to  represent  absolute  X-position  and  15  bits  for  absolute  Y-posi- 
tion.  With  a scale  factor  of  one  (i.e.,  the  least  significant  bit  of  the  15 
remaining  bits  represents  one  foot  in  ground  distance) , the  maximum  possible 
. ange  of  X or  Y is  (2l*  -1)  or  32,767  feet  (approximately  6 miles).  This  scale 
»ctor  allows  encoding  of  a map  6 miles  by  6 miles.  Obviously  larger  areas 
aay  be  encoded  using  larger  scale  factors  with  corresponding  loss  in  resolu- 
tion. 

The  second  type  of  data  word  is  a delta  data  word.  In  order  to  conserve 
memory,  a delta  word  format  is  used  to  indicate  incremental  X and  Y position 
referenced  to  a start  word  rather  than  the  origin.  The  delta  word  is  16  bits 
in  length  including  both  Ax  and  Ay.  The  first  8 bits  are  Ax,  the  last  8 bits 
are  Ay.  The  most  significant  bit  of  Ax  must  always  be  zero  indicating  it  is 
not  a start  word.  The  most  significant  bit  of  Ay  is  used  as  the  hidden  line 
indicator,  being  set  to  one  if  it  is  a connecting  line.  There  remains  7 bits 
(6  bits  + sign)  for  indicating  Ax  and  7 bits  (6  bits  + sign)  for  specifying 
Ay.  In  other  words,  with  a scale  factor  of  one,  changes  in  X or  Y position  of 
less  than  or  equal  to  + (2s  -1)  or  + 63  feet  can  be  specified  using  a aelta 
word  format. 

The  delta  word  format  is  of  significant  use  in  map  areas  of  high  informa- 
tion content,  since  greater  detail  is  encoded  by  using  smaller  line  segments 
to  describe  the  contour  variations.  All  of  the  data  bases  used  in  this  study 
were  obtained  manually  and  no  attempt  was  made  to  automate  the  data  base  cre- 
ation. 

6.  RASTER  DISPLAY 

Before  describing  the  raster  display  utilized  in  this  study,  a very  brief 
description  of  standard  television  systems  is  given  here  for  comparison. 

Standard  television  uses  a 525  line  system,  meaning  that  there  are  525 
horizontal  sweep  lines  or  raster  lines  used  in  generating  a normal  4 by  3 as- 
pect ratio  TV  picture.  The  525  lines  are  divided  into  two  fields  of  262-1/2 
raster  lines  each,  called  odd  and  even  fields.  These  two  fields  are  displayed 
alternately  at  the  rate  1/60  cycle  per  second.  This  rate  is  rapid  enough  so 
the  eye  is  not  able  to  perceive  any  flicker.  The  camera  and  associated  elec- 
tronics photographing  the  scene  obviously  generates  the  video  in  a compatible 
odd-even  field  format  for  transmission.  In  reference  to  resolution,  the  ver- 
tical. resolution  is  divided  into  525  discrete  raster  lines,  while  the  horizon- 
tal resolution  is  very  nearly  continuous. 

The  raster  display  used  in  this  study  also  utilized  a 525  line  system, 
but  the  4 by  3 aspect  ratio  picture  was  not  maintained.  Rather,  it  was  decided 
to  use  a square  picture  which  significantly  reduced  the  complexity  of  the  soft- 
ware. In  order  to  generate  the  digital  equivalent  of  a TV  picture  (which  is 
an  analog  display  rather  than  digital) , it  was  required  to  form  the  picture  by 
using  a matrix  of  discrete  dots.  The  study  was  directed  at  achieving  only  a 
two  color  level  black  and  white  display.  No  attempt  was  made  to  incorporate 
any  shades  of  gray  capabilities.  Using  only  black  or  white,  simplified  both 
computer  programming  and  interface  hardware.  The  dot  matrix  consisted  of  an 
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array  of  256  by  256  discrete  points  comprising  the  picture  on  the  screen,  each 
point  capable  of  having  only  two  possible  states  either  black  or  white.  This 
binary  scheme  was  compatible  with  the  computer  storage  of  the  picture  informa- 
tion, thereby  requiring  a minimum  amount  of  memory.  A single  bit  in  the  compu- 
ter contained  the  information  for  one  pixel  on  the  monitor;  if  the  bit  is  set 
to  one,  it  appears  as  a white  dot  and,  if  it  is  set  to  zero,  it  appears  as  a 
black  dot.  As  stated  before,  the  TV  monitor  used  was  a 525  line  system  and  in 
order  to  make  the  256  by  256  bit  matrix  compatible  with  the  525  line  system, 
the  same  256  by  256  matrix  was  used  for  both  the  odd  and  even  fields.  In  ad- 
dition, the  horizontal  sweep  was  adjusted  to  obtain  a square  picture  main- 
taining the  same  resolution  in  both  the  horizontal  and  vertical  direction. 
Again,  this  was  done  to  simplify  the  hardware  and  reduce  computer  memory  re- 
quirements. 

7.  DIGITAL-TO-VIDEO  INTERFACE 

The  purpose  of  the  digital-to-video  interface  or  digital-to-video  con- 
verter (DVC)  was  to  accept  the  computer  generated  picture  information  at  com- 
puter rates  and  display  the  information  at  video  rates.  To  accomplish  this, 
the  DVC  had  incorporated  within  it  two  separate  banks  of  256  by  256  bit  mem- 
ories. As  one  memory  was  being  written  into  by  the  computer,  the  other  was 
being  displayed.  When  the  second  memory  had  been  filled  by  the  computer,  that 
memory  bank  became  the  display  memory  and  the  first  became  the  one  being  writ- 
ten into  by  the  computer.  This  ping-ponging  of  memories  continued  at  the 
fastest  rate  allowed  by  the  computer.  The  switching  of  memory  banks  was  re- 
quired, since  reading  and  writing  of  the  same  memory  simultaneously  would  cause 
distortion  in  the  displayed  picture.  The  DVC  serially  transferred  data  from 
the  computer  by  means  of  direct  memory  access,  eight  32  bit  words  (256  bits) 
at  a time.  This  format  of  transfer  was  selected  since  the  computer  generated 
one  raster  line  (256  bits)  at  a time.  In  this  manner,  the  display  was  opera- 
ting asynchronouslv  from  the  computer,  repeating  the  same  digital  map  until 
an  updated  map  had  been  completed.  Under  all  of  the  operating  conditions,  the 
DVC  was  able  to  accept  data  much  faster  than  the  computer  could  generate  it. 

8.  SOFTWARE  PROGRAM 


The  description  of  the  assembly  language  program  developed  to  generate 
the  digital  may  be  divided  into  five  major  sections. 

• Determine  and  save  in  a temporary  memory  buffer  those  data  points 
which  are  within  the  field-of-view. 

• Rotate  the  selected  data  into  the  aircraft  reference  system. 

• Determine  the  intersection  of  the  contour  lines  with  the  raster  lines. 

9 Store  the  computed  intersections  in  the  output  buffer  with  the  proper 
bit  patterns  for  output  to  the  display. 

• Output  the  computed  data. 

A more  detailed  presentation  of  the  program's  operation  follows. 
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a.  A Determination  of  Data  Points  within  the  Field-of-View.  The  data 
base  generated  in  the  format  described  previously  is  loaded  into  the  computer 
menx  y before  starting  the  main  program.  The  next  step  is  to  acquire  the  air- 
craf  parameters  required  by  the  program,  namely  X-position  and  Y-position 
relative  to  the  map  origin,  and  aircraft  heading.  The  parameters  are  genera- 
ted and  varied  by  means  of  a control  subprogram  (listed  in  Appendix  B) , which 
is  capable  of  varying  these  three  parameters  as  well  as  the  scale  factor  by 
fixed  increments  through  the  use  of  control  switches  on  the  computer.  The 
entire  data  base  is  then  scanned  to  find  those  data  points  that  are  located 
within  a distance  R x of  the  aircraft  position  relative  to  the  data  base. 

Rnjax  is  the  radius  of  a circle  whose  magnitude  is  equal  to  one  half  of  the 
diagonal  of  the  display  f ield-of-view  (FOV) . The  radius  of  a circle  is  used 
rather  than  a square  since  the  data  has  not  been  rotated  into  the  aircraft 
frame  of  reference.  In  order  to  check  the  data  points  with  respect  to  R^x, 
they  must  be  uncompressed.  Those  points  found  to  be  within  a distance 

are  stored  in  another  area  of  computer  memory  in  uncompressed  format  to  be 
used  during  the  intersection  process.  At  this  time  another  function  is  also 
performed  During  the  scanning  of  the  data  base  some  contour  lines  leave  ti  e 
FOV.  At  the  point  where  this  occurs,  a new  start  word  is  created.  The  scan 
of  the  data  continues  until  the  contour  returns  to  the  FOV  or  the  end  of  the 
data  is  reached.  If  the  contour  returns  to  the  FOV,  a hidden  line  is  created 
connecting  this  point  and  the  point  at  which  the  contour  exited.  As  stated 
previously,  hidden  lines  are  lines  which  do  not  appear  on  the  screen.  This 
operation,  in  effect,  creates  a new  data  base  whose  boundaries  are  entirely 
withiii  the  FOV.  The  creation  of  the  FOV  data  base  reduces  the  number  of  points 
which  must  be  rotated  and  scanned  for  possible  intersection  resulting  in  re- 
duction of  processing  time  during  succeeding  operations. 

b.  Coordinate  Rotation  of  the  FOV  Data  Base.  All  of  the  data  points  in 
the  FOV  data  base  are  rotated  into  the  aircraft  reference  system  using  the 
following  Euler  Coordinate  Transformation  Equations. 

Xac  = X cos  ip  + Y sin  <p 

Yac  = Y cos  i p - X sin  \p 

where,  ip  is  the  aircraft  heading  (X,Y)  are  the  original  coordinates  (Xac,  Yac) 
are  the  coordinates  referenced  to  the  aircraft  heading. 

After  the  transformation,  the  FOV  data  base  is  in  the  proper  format  for  the 
raster  line  intersection  processing. . 

c.  Raster  Line  Intersection  Processing.  Raster  line  processing  involves 
checking  all  line  segments  (except  hidden  lines)  defined  by  the  pairs  of  points 
in  the  FOV  data  base  for  their  possible  intersection  with  a raster  line.  This 
operation  is  performed  for  each  of  the  256  horizontal  raster  lines. 

The  computation  begins  with  the  selection  of  the  raster  line  located  at 
the  uppermost  portion  of  the  FOV  and  continues  by  successive  increments  to  the 
raster  line  located  at  the  bottom  of  the  FOV.  Representation  of  successive 
raster  lines  is  obtained  by  incrementing  Y scan^  by  a fixed  Ay  scan.  In  or- 
der to  compute  the  intersection  of  these  raster  lines  with  the  line  segments 
in  the  FOV  data  base,  computation  of  the  slope  of  the  segment  is  necessary. 
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The  remaining  computation  is  a simple  determination  of  the  intersection  of  two 
straight  lines.  The  determination  of  the  intersections  results  in  a series 
of  Xi’s  for  each  Y scanj_. 

A certain  amount  of  computational  time  may  be  saved  by  first  checking  to 
determine  if  the  Y value  of  a particular  raster  line  lies  within  the  boundar- 
ies specified  by  the  Y values  of  the  line  segments  terminal  points.  In  other 
words,  Y scani  must  lie  between  Y segm  and  Y seg^^  for  an  intersection  to 
exist.  Slopes  are  computed  only  after  it  has  been  found  that  an  intersection 
occurs,  thereby  resulting  in  computational  savings.  The  X^'s  resulting  from 
actual  intersections  are  stored  in  their  proper  bit  positions  in  the  output 
scan  word  buffer. 


d.  Formating  the  Output  Scan  Word  Buffer.  The  intersect v ip  previously 
determined  must  next  be  placed  in  the  proper  bit  position  of  the  output  buf- 
fer. Within  the  computer,  a raster  line  is  represented  by  256  bits  or  eight 
32  bit  scan  data  words.  Each  scan  data  word  will  contain  a one  in  each  bit 
position  for  which  an  intersection  occurred.  All  other  bit  positions  will  con 
tain  zeros.  Using  the  desired  resolution,  the  determined  X^  is  divided  by  the 
proper  scale  factor  (X  scale)  to  obtain  the  bit  position  into  which  a one  must 
be  placed.  The  scale  factor  is  determined  quite  simply,  namely  X scale  is 
the  horizontal  FOV  width  divided  by  256  bits.  The  proper  bit  position  is  found 
as  follows: 


Bit  position  Xn  = 


X^/X  scale 


This  scheme  results  in  only  one  bit  b rng  placed  on  a raster  line  for 
each  intersection  with  that  raster  line.  Actually,  this  scheme  results  in  a 
satisfactory  representation  of  contour  line  segments  that  are  in  the  range  of 
+45  degrees  of  vertical  with  respect  to  the  horizontal  raster  lines.  A prob- 
lem arises  as  the  contour  lines  begin  to  approach  being  parallel  to  the  raster 
lines.  In  this  case  more  than  one  bit  must  be  placed  on  a raster  line  in  order 
to  make  the  line  look  continuous.  The  obvious  extreme  case  is  a contour  line 
exactly  parallel  to  the  raster  line.  If  the  contour  line  falls  in  between  two 
raster  lines,  a decision  is  made  as  to  which  raster  line  the  contour  line 
should  appear  on.  These  various  problems  are  solved  by  several  different  bit 
filling  techniques. 


The  horizontal  contour  line  is  the  most  easily  solved  problem  after  de- 
termination of  the  proper  raster  line  has  been  made.  In  this  case  bits  are 
filled  on  the  raster  line  between  the  limits  determined  by  the  X range  of  the 
line  segment,  namely  between  Xm  and  Xj,^.  Contour  lines  whose  angle  with 
respect  to  the  raster  are  greater  than  zero  but  less  than  45  present  greater 
difficulty.  This  difficulty  is  increased  due  to  the  limitation  of  having 
only  one  raster  line  in  the  computer  memory  at  a time  rather  than  having  the 
entire  256  by  256  matrix  with  which  to  work.  A relatively  successful  approach 
was  taken  to  solve  the  problem.  The  problem  simply  stated  is  — how  many 
bits  must  be  placed  on  a raster  line  for  intersections  with  grazing  contour 
lines.  The  technique  used  was  to  place  that  number  of  bits  on  the  raster 
line  that  correspond  to  the  absolute  value  of  the  reciprocal  of  the  slope 
of  the  contour  line  segment.  For  example,  a line  segment  intersecting  the 
raster  line  with  a slope  of  1/2  (relative  to  the  raster)  would  have  two  bits 
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placed  on  the  raster  line  at  the  Intersection  point,  a line  with  a slope  of 
1/3  would  have  these  bits,  those  with  a slope  of  1/4  would  have  four  bits  and 
so  forth.  Lines  with  slopes  which  have  fractional  parts  were  rounded  to  the 
nearest  whole  number.  This  operecion  significantly  increased  the  computational 
time. 

e.  Output  to  display.  The  output  of  the  data  to  the  display  is  facili- 
tated by  using  the  direct  memory  access  (DMA)  capability.  This  requires  only 
that  the  number  of  words  and  the  memory  location  of  the  first  word  be  speci- 
fied. The  actual  transfer  is  accomplished  by  one  program  statement. 

9.  SUMMARY  AND  CONCLUSIONS 

Results  of  this  study  illustrated  the  feasibility  of  generating  from  digi- 
tal data  a dynamic  contour  map  capable  of  being  displayed  on  a standard  raster 
TV,  Figures  1 and  2 show  the  results  as  seen  on  the  screen  of  two  different 
data  bases.  Figure  1 shows  an  area  one-half  rile  on  each  side  known  as  Paw 
Paw  in  West  Virginia.  This  data  base  was  obtained  manually  from  a 1:24000  scale 
map  of  the  area.  The  contour  intervals  displayed  are  at  100  foot  Intervals  as 
opposed  to  20  foot  intervals  on  the  sc urce  map.  There  are  approximately  4,000 
data  points  in  the  f ield-of-view  and  the  time  required  to  generate  the  picture 
is  about  i minute  and  45  seconds.  As  can  obviously  be  seen,  there  is  too  much 
information  to  facilitate  easy  interpretation.  This  suggests  that  this  is 
probably  a worst  case  condition  as  far  as  data  processing  time  since  any  more 
information  would  be  of  no  benefit.  One  point  which  must  be  made  is  that,  even 
though  the  display  is  cluttered  with  information,  it  does  not  show  all  of  the 
information  contained  on  the  source  map.  This  suggests  that  a one-to-one  cor- 
respondence between  paper  map  and  the  digital  dispi..,  of  a map  is  not  possible 
within  hardware  constraints. 

Figure  2 shows  a simplified  data  base  of  the  same  area  as  Figure  1.  The 
data  base  of  Figure  2 contains  250  data  points  and  requires  only  10  seconds 
to  generate  the  full  picture.  Admittedly,  this  map  is  rather  sketchy  and  in 
no  way  approximates  a typical  paper  map.  However,  looking  a little  more 
closely  at  the  map,  the  general  trend  of  the  terrain  is  much  more  obvious  in 
Figure  2 than  in  Figure  1.  The  winding  river  can  be  seen  and  the  trend  of  the 
mountains  is  more  obvious.  This  is  possible  with  a "eduction  in  the  data  stor- 
age requirement  by  a factor  of  16  and  a reduction  i computational  time  by  a 
factor  of  10. 

Two  possible  conclusions  can  be  made  from  the  results  of  Figures  1 and  2. 
The  first  is  that  if  a large  amount  of  terrain  detail  is  desired,  possibly  some 
format  other  than  standard  map  contour  format  should  be  investigated,  since  a 
one-to-one  representation  of  paper  maps  is  not  possible.  The  second  conclus- 
ion is  that  if  only  the  trend  of  the  terrain  is  needed,  this  technique  could 
be  employed  directly  with  satisfactory  results. 

In  reference  to  the  time  required  to  generate  the  maps,  these  times  may 
seem  to  be  long;  however,  no  extreme  effort  was  made  to  achieve  rapid  execution 
of  the  program.  It  is  felt  that  with  minimum  effort  the  program  execution 
times  could  be  reduced  significantly.  A factor  that  should  be  kept  in  mind  is 
that  a helicopter  traveling  at  20  knots  as  it  does  in  nap-of-the-earth  flight 
would  not  necessarily  require  rapid  «pdates  of  the  map.  In  fact,  if  the  map 
could  be  continuously  updated,  the  continuous  movement  of  the  map  display  would 
be  confusing  rather  than  helpful. 
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It  is  anticipated  that  further  investigations  will  be  made  in  the  area  of 
digital  map  generation.  These  investigations  will  include  the  generation  of  a 
shares  of  gray  or  even  color  map  as  opposed  to  the  two  color  black  or  white 
display  used  in  this  study.  Another  area  of  possible  investigation  will  be 
alternate  formats  for  the  map  data,  as  was  previously  mentioned.  Possibilities 
for  alternate  formats  may  include;  slope  shading,  relief  shading,  and  ridge 
valley  lines.  Future  investigations  will  also  include  flight  testing  of  a 
digital  map  system  and  a projected  map  display. 

This  study  was  successful  in  that  it  illustrated  the  capability  of  devel- 
oping software  and  hardware  to  generate  contour  maps  from  digital  data  for  dis- 
play on  raster  TV.  The  study  also  pointed  out  some  of  the  shortcomings  of  the 
technique  and  determined  possible  areas  for  future  investigations. 


APPENDIX  A 

SINGER  KEARFOTT  COMPUTER  NO,  2000  INSTRUCTION  SET 


* 

« 


A Register 

I 

fffKtiv*  A#1 

An  Index  Register 


ORATION  DESCRIPTION 


Shift  A,  I Left  logically 
Shift  A,  » Loft  Circularly 
SKift  A left  logically 
Shift  A,  I Right  logically 
Shift  A.  | *i+f  Algebraical! y 
Shi ft  A.  • «4>t  Circularly 
Shift  A «#»t  Algebraically 
Shift  A Rl#»t  Circularly 
load  A l«#tiar 

Star#  Index  Register 


Test  XR  end  Skip  On  Not  Equol 


fait  XR  and  Skip  on  Lam  Than 


Star#  A Register 

No  Operation 
Enable  Mammy  Interrupts 
CX tab l«  Program  Interrupts 
Disable  Memory  Interrupt* 
Enable  fcogrem  Interrupt* 


Sot  Selected  Progrom  Flop* 
Reiet  Selected  Kogrom  Flop* 
Convert  Floating  To  Fixed 
Convert  Fined  To  FlooHnp 
Exchange  A And  I 
Set  Halfword  Mode 
Reset  Halfword  Made 
Load  Index  Register  From  A 
Date  Output  From  A Register 
Date  Input  To  A Register 
Date  Output  From  Memory 
Data  Input  To  Memory 
load  • Register 

load  XR  Register 

Jump  Uncan  Jtienel 
Jump  Uncondi  Hone  I 
Jump  If  A / 0 
Jump  If  A^O 


OPERATION  ! 


Shift  * fA 
Shift  iyU 

Shift  by  |A 
Shift  by  EA 
Shift  by  EA 

Shift  a^u 

Shift  Iy  EA 
Shift  iy  EA 
(fA)  - A 


Skip  if  (XR)  / ((A) 


Skip  if  (XR)  < (EA) 


No  Operation 
SR  14  Is  Sat  Ta  1 
SR  IS  Is  Sat  Ta  0 
SR  >4  Is  Sat  To  0 
SR  IS  Is  Sat  To  1 

Holts  If  Test  Equipment  Signal 
Is  Present. 

Seh  Indicated  Flogs  To  I 
Resets  Indicated  Flogs  To  0 
(A,i)-A,» 
iA.i)  - A, § 

(A)  - I,  (I)  — A 

SR  lit  Set  To  I 

SR  lit  Reset  To 0 

(Ai  - XR  ()•  low  Order  Htt) 


Jump  To  IA 
Jump  To  EA 
Jump  To  EA  if  (A)  t* 0 
Jump  To  IA  If  (A)  ^0 


CARRY  Carry  Stotts  lit 


Goes  Into 
Floating  Point 


OP-COOt 


OPERATION  DESCRIPTION 


Jwf  On  SwitoA 
Jtoap  Op  Stotii  Rif 

Jung  On  Pi^i—  Bog 

Jung  Tn  SnRrulInn 

Mnrflfy  lodau  fcrgtin or  Niitiwo 

Mo*ly  Mm  tUo-ttv  Nogativo 

Roturn  nPA  in 

Storo  R Ragirtar 

Uflenl  And 

Skip  On  A Ragirra  HMnd 

Multiply  - Floating  Point 
A Od  Floating  OuwOlo  Prociiian 


AM  Low  or  - Flood  Point 

Divido  - Floating  Point 

Storo  S tatm  Rogiifar 
Add  - Floating  Point 

load  Stotli  Raglltor 
logical  OR 

Eocltnivo  OR 

Multiply  * Flood  Point 

Suk loci  • Floating  Oaublo  Procioii 

Suk tract  Uppot  • Flood  Paint 

Sup  trier  Uuror  • Flood  Point 


OPERATION  SUMMARY 

Jung  To  SAW  (A)^0 

Jump  ToKA  W (A)  > 0 

Jump  To  (AW  (A)  -0 

Jump  To  SAW  (A)  < 0 

Jump  To  EA  If  Swilck  On 

Jioap  ToEAWSmWi  (It  On 

Jung  ToEA  W Any  Flog  T 01  rod  0 On 

(PC)<2-EAIndkaoWy.  Jump  To  EA  > I 

(JOD'IEA)  - XR 

(XRMEA)  - XR 

Jvup  tndroct  Vlo  EA 

IS)  - EA 

(A)  AND  (EA)-  A 

Skip  Unlam  (A  I and  (EA)  0 

A 

(A|*  ((At -A,  S 
IA,R|*(EA,EA*2)-A.R 
(A)  • (EA)  • Carry  - A 

(»>  • (EA)  - A 

A 

<A,lj/(EA)  - A,  Ramoindm  - I 

(SR)  - (EA) 

<A)?(EA)  - A 

(EA)  - SR 
(A)  OR  ' EA)  - A 

(A)  XOR  (EA)  - A 

(Af«AI  - A,R 

(A,»)-  iEA.  EA*2)  - A, I 

(At  - (EA)- Carry  - A 

(R)  - (EA)  - I 

(A.RU'KA)  - A,  Rooolndor  - • 

(ART)  - EA 

(At-  KAI  - A 


Stura  InlorTttpt  Modi  Raging 
Sukouct  - Planting  Sim 


HA)  - MR 
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LISTINGS  OF  MAP  GENERATOR  COMPUTER  PROGRAMS 


1.  Control  Program  for  Map  Display 

2.  Program  to  Read  Input  Data  Tape 

3.  Determine  Points  in  Field-of-View  and  Decompress  Data 

4.  Rotate  Data  and  Compute  Intersection 

5.  Varian  Printer  Plotter  Subroutine 

6.  TV  kaster  Output  Subroutine 

7.  Paper  Tape  Read  and  Teletype  Output  Subroutine 

8.  Program  to  Format  and  Compress  Contour  Data 
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* CONTROL  PROGRAM  FOR  MAP  DISPLAV 

* 

* 

* 

* 

)|E  J|I  3li  3|(  »|!  ijt  ^ <|i  /li  * 1 1|(  1 1 .1  j|  if  if.,  if  !|  if  3|  if  *!  i|  J|  3|i  I!  !|  |(  1|  if  5|^  It  I|  if,  <|.  !l  if  |!  JiC  if  if  if  if  if.  * if  if  'll  'll  if  i|i  * if.  'll 

* INSTRUCTIONS 

* SU5  — X AIRCRAFT  POSITION  DRIVE 

* SU4  — V AIRCRAFT  POSITION  DRIVE 

* SU3  — AIRCRAFT  HEADING  DRIVE 

* SUE SCALING  FRESOLUT 

* SUO  --  SIGN  OF  I NCR , ON  - -1,  OFF  • +1 


*******  **************************** x******  *******  xxxxxxx********* 

>C  OF  SUBR  COS 
)C  OF  SUBR  SIN 


COSFA 

SETX 

0444  STRT 

SINFA 

SETX 

06C6  STRT 

RDDATA 

SETX 

8120 

FOVPTS 

SETX 

81D0 

DTRINTR 

SETX 

8320 

ST  1 

SETX 

8000 

* 

ORG 

ST  1 

FRASTER 

DEC 

256 . 000 

FRESOLUT 

DEC 

- 10  . 

FXACPOS 

DEC 

1280  . 

FVACPOS 

DEC 

1 150  . 

HEADING 

DEC 

0 . 0 

SINSI 

HEX 

0 

COSSI 

HEX 

7FFFFFFF 

FSINSI 

HEX 

0 

F COSSI 

HEX 

0 

INWORDS 

HEX 

0 NUMBE 

FOVUDK 

HEX 

0 NO . 

TEMP 

BSS 

4 

SUBROT  T 

BSS 

S 

* 

RADIAN 

DEC 

57 . 3 

ONE 

DEC 

1 . 0 

FTWO 

DEC 

2 . 0 

FFIVE 

DEC 

5.0 

FTEN 

DEC 

10.0 

FHUNDR 

DEC 

100.0 

MINUSONE 

DEC 

-1 . 0 

CONVRTN 

HEX 

0 

BIT1 

HEX 

80000000 

BIT32 

HEX 

0000000 1 

PLUSONE 

HEX 

7FFFFFFF 

* 

ST2 

SETX 

8040 

OF  WORDS  IN  FOV 
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START 


* 

SU3RTN 

SU5 

SU-4 

SU3 

SU2 

HEADS 

* 

RETURN 


* 

SIGN 

i 

* 

XAC 


* 

VAC 


* 

HEAD 


* 

HEADS 


ORG 

JS 

BASE 

LDX 

LDX 


JGU 

LDA 

STA 

JGUI 

JGU 

JGU 

JGU 

JU 

JS 

JS 

JU 

LDa 

JU 

LDA 

MLF 

ADF 

STA 

JU 

LDA 

MLF 

ADF 

STA 

JU 

LDA 

MLF 

ADF 

STA 

JU 

LDA 

DVF 

LDX 

JS 

STA 

JS 


STS 

RDDATA  GO  READ  DATA  ONE  TIME  ONLV 
5, FRASTER 
5, FRASTER, M 
5, FRASTER, M 


S I GN , 0 . IS  DECR  SET 
ONE  NO,  INCREMENT 

TEMP 
XAC , 5 . 

VAC  , A 

HEAD,  3 
SCALE,  2 
HEADS 

FOVPTS  GO  DETERMINE  POINTS  IN  FOV 

DTRINTR  GO  COMPUTE  INTERSECTIONS  UITH  RASTER  LINES 
LOOP 

MINUSONE 

SU3RTN 

FHUNDR 

TEMP  MULT  BV  SIGN  , • 

FXACPOS 

FXACPOS 

SU4 

FHUNDR 

TEMP 

FVACPOS 

FVACPOS 

SU3 

FFIVE 

TEMP 

HEADING 

HEADING 

SUS 

HEADING 

RADIAN 

6,SUBR0UT+6,M 

COSFA 

FCOSSI 

CONV 


L 
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k 

:OHV 


SHIFT 


* 

SCALE 


PTR  CONVRTN 

CFX 

SAM  BIT1 
SAM  BIT3E 
JU  SHIFT 
LDB  PLUSONE 
RTA  CONVRTN 
SRAD  1 

RTA  CONVRTN 


LDA  FTUO 
MLF  TEMP 
ABF  FRESOLUT 
STA  FRESOLUT 
JU  HEAD3 


END 

END 


STA 

JS 

STB 

JU 


FSINSI 

CONV 

SINSI 

RETURN 


j 
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* PROGRAM  READS  IN  INPUT  DATA  TAPE 

* 

* 

* 

* 

CHARSV  SETX  8630 

TAPERD  SETX  S63C 

TTURITE  SETX  8650 

* 

INUORDS  SETX  8012  NUMBER  OF  INPUT  UORDS 

STORF  SETX  8670  BEGINNING  LOCATION  OF  INPUT  DATA  BASE 

* 


BEGIN 

SETX 

8100 

ORG 

BEGIN 

DARDRTN 

HEX 

0 

SV1 

HEX 

0 

SV2 

HEX 

0 

LNCKRTN 

HEX 

0 

CKOUNT 

HEX 

0 

LKOUNT 

HEX 

0 

EOT 

HEX 

00000004 

END  OF  TAPE 

LSPACE 

HEX 

20000000 

LEADING  SPACE 

LCRLF 

HEX 

0D0A0000 

LEADING  CR  LF 

PUBS 

HEX 

0000007F 

RUBOUTS 

ZIP 

HEX 

0 ZERO 

* 

STRTB 

SETX 

8120 

ORG 

STRTB 

RDDATA 

* 

PTR 

DARDRTN 

* INITIALIZE  SECTION 

BASE 

5,  SV1 

LDX 

5,  SV1  , M 

* 

LDA 

ZIP 

LXA 

0 

XR0  IS  CHAR  COUNT 

LXA 

2 

XR2  IS  INPUT  LID  CNT 

RST  15  RESET  ALL  FLAGS 

STA  SV1 
STA  SV2 
STA  LKOUNT 
STA  CKOUNT 

* 

* READ  INPUT  DATA  AND  WRITE  IT  OUT 

* 

GNC  JS  TAPERD 

LDA  CHARSV 
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STA 

SV1 

EXO 

PUBS  IS  IT  RUBOUT 

JN 

NXT 

JU 

GNC 

NXT 

LBA 

SV1 

EXO 

EOT 

JN 

Cl 

JGU 

ST  ART  1 

Cl 

JGU 

04 . 1 PRINT  IF  SU  1 SET 

JU 

C2  OTHEPUISE  SKIP  PRINT 

C4 

LBB 

SV1 

SLLD 

24 

JS 

TTURITE 

JS 

LINECK 

CS 

LDA 

SV1 

SBU 

64, M HEX  40 

JG 

NXT  1 

JU 

NXT  2 

NXT  1 

LDA 

SV1 

SBU 

71, M HEX  47  « G 

JG 

NXT2 

LDA 

SV1 

ADU 

9 , M CONV  TO  HEX  FRM  ASCII 

STA 

SV1 

NXT2 

LDA 

SV1 

AND 

15, M 

LOR 

SV2  ADD  TO  REST  OF  UD 

IMP 

O, 1 , M INC  XR0  BY  1 

I CL 

0 , 4 , M IS  XR0  < 4 

JU 

C3 

SLL 

4 

STA 

SV2 

JU 

GNC  GET  NXT  CHAR 

* 16  BITS  OF 

INPUT  COMPLETED 

* 

C3 

SLL 

16  SHIFT  TO  LEFT  HALF  UD 

STH 

STORE, 2 STORE  HALF  UD 

IMP 

2 , 1 , M INC  XR2 — UD  COUNT 

LDX 

0,ZIP  RESET  CHAR  CNT 

LDA 

ZIP 

STA 

SV2 

JU 

GNC  GET  NXT  UD 

* 

* LINE 

CHECKING  SECTION 

* 

LINECK 

PTR 

LNCKRTN 

LDA 

LKOUNT 

ADU 

1 , M 
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* * 


LRTN 

OTPCRLF 


OTPS'P 


* 

ST  APT  1 


* 


STA  LKOUNT 

SBU  3a, M 

JG  OTPCRLF 

LDA  CKOUNT  CHAR  COUNT 

ADU  1 , M ADD  1 

STA  CKOUNT 

SBU  8,M 

JG  OTPSP 

RTA  LNCKRTN 

LDB  LCRLF 

LDA  ZIP 

STA  LKOUNT 

STA  CKOUNT 

JS  TTURITE 

JIJ  LRTN 

LDB  LSPACE 

LDA  ZIP 

STA  CKOUNT 

JS  TTURITE 

JU  LRTN 


IMN  a,l,M  DECREMENT  UD  COUNT 
NOP 

STX  E,INUORDS  SAVE  UORD  COUNT 
LDB  LCRLF 
LDA  ZIP 
JS  TTURITE 
RTA  DARDRTN 


> 


END 

END 


DETERMINE  POINTS  IN  FIELD  OF  VIED  AND  DECOMPRES 


DATA 


* CALCULATION  OF  AIRCRAFT  PARAMS  AND  VARBLS 


FLAG  ALLOCATIONS 

FLAG  1 I MAG  FLG 

FLAG  2 OUT  OF  RANGE  FLAG 

FLAG  8 SAVE  OUT  OF  RANGE  DATA 


REGISTER  DEFINITIONS 
XR2  --  INCOMING  DATA  UP  COUNTER 
XR3  — STORED  DATA  COUNTER 
XR5  --  BASE  REGISTER 
XR7  — RTM  REG 


SETX  8 1 AO 
ORG  BEGIN 

SETX  8000  NUMBER  OF  RASTER  LINES 
SETX  8002  RASTER  RESOLUTION 
SETX  8004  X POSITION 
SETX  8006  V POSITION 
SETX  8012  NUMBER  OF  INPUT  WORDS 

SETX  8014  NUMBER  OF  WORDS  IN  FOV 

SETX  3E00 
SETX  3E02 

SETX  8670  STARTING  LOCATION  OF  INPUT  DATA  BASE 
SETX  A200  STARTING  LOCATION  OF  DATA  POINTS  IN  '-0V 
HEX  O 
DEC  2 . 0 
DEC  1 ,4142 
BSS  6 
HEX  0 
HEX  0 
HEX  0 
HEX  0 
HEX  O 
HEX  0 
HEX  0 
HEX  0 

HEX  80000000 
HEX  00SO00OO 
HEX  8000 


FRASTER 

FRESOLUT 

FXACPOS 

FVACPOS 

INUORDS 

FOVWDK 

XTRACK 

VTRACK 

ST0RE1 

ST0RE2 

FOVRTN 

FTWO 

SORTTWO 

TEMP 

XMIN 

VMIN 

XMAX 

VMAX 

FXMIN 

FVMIN 

FXMAX 

FVMAX 

SIGN 

B I T9 

BIT16 


STRTC 


SETX  8 IDO 
ORG  STRTC 


* * 


* CAL  MAX  AND  MIN  X AND  V IN  FLT  PT 

* 


BASE  5 , FTUO 
LDX  5, FTUO, M 

* DETERMINE  FOV  RADIUS 
LDA  FRESOLUT 
MLF  ^RASTER 

DVF  FTUO  FRASTER*FRES0LUT/2 
MLF  SQRTTUO 
STA  TEMP 

FIND  LFT  EDGE  FOV 

LDA  FXACPOS 
SBF  TEMP 
STA  FXMIN 

* 

* FIND  RT  EDGE  FOV 

LDA  FXACPOS 
ADF  TEMP 
STA  FXMAX 

* 

* FIND  BOTTOM  OF  FOV 

LDA  FVACPOS 

SBF  TEMP 

STA  FVMIN 

* 

* FIND  TOP  OF  FOV 

LDA  FVACPOS 

ADF  TEMP 

STA  FVMrtX 

* 

* CONVERT  FLT  PT  TO  FIX  PT  HALF  UORD 

* 

LDX  1,0, M RS  XRO 

LOOP  1 LDA  FXMIN, 1 

LDB  0 , M 

CFX  CON V FLT  TO  FIXED  PT 

SLL  16  CONV  TO  HALF  UD 

ST  AH  XMIN  , 1 

IMP  1 , 2 , M 

I CL  1 , 8 , M 

JU  NX  1 

JU  LOOP1 

* INITIALIZE  SECTION 
NX1  LDX  2 , 0 , M > 

LDX  3 , 0 , M 

I 
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mu 


mi  -■ 


LDX  7,0,  M 

* SET  STATUS  REG  FOR  FAST  SCRATCH  PAD  OPER 


LDS 

8192 , M 

SET  BIT  6 IN  STS  REG 

LDA 

0,  M 

ST  A 

XTRACK 

STA 

VTRACK 

RST 

15 

RESET  ALL  FLAGS 

* 

NX2 

LDAH 

STORE 1 , 

2 

SAM 

SIGN 

SKP  IF  SIGN  SET 

JU 

NCRMENT 

GO  TO  I NCR  FORMAT 

* START 

WORD  FORMAT 

STRTUORD 

EXO 

SIGN 

RS  START  UD  IND 

STAH 

XTkaCK 

SAVE  X VALUE 

IMP 

2 , 1 , M 

INC  XR2 

LDAH 

STORE  1 , 

2 GET  Y 

SAM 

SIGN 

IS  I MAG  hm T SET 

JU 

NX3 

NO 

SET 

1 

YES,  SET  I MAG  FLAG 

EXO 

SIGN 

RESET  I MAG  BIT 

NX3 

STAH 

VTRACK 

SAVE  Y VALUE 

JU 

COMP  1 

* 

* COMPRESSED  U> 

•Is 

ORD  FORMAT 

HP* 

NCRMENT 

SAM 

B I T9 

IS  IMAG  BIT  SET 

JU 

NX4 

SET 

1 SET 

FLG  1 --  IMAG  FLG 

NX -4 

SLL 

1 SH 

SIGN  X TO  SGN  A REG 

SR A 9 SIGN  EXTEND  TO  16  BITS 

ADUHR  XTRACK  ..  ? ADD  HF  UD  TO  FSP 

* UORK  ON  V VALUE 

SLL  17  SGN  V TO  SGN  A REG 
SRA  9 SIGN  EXTEND 
ADUHR  YTRACK , 7 ADD  H TO  FSP 
JU  COMP 1 

* 

* CHECK  rOR  DATA  IN  FIELD  OF  VI ELI  (FOV) 

* 

COMP1 


LDAH 

XMAX 

SBUH 

XTRACK 

JL 

OOR 

JMP 

IF 

XTRACK > XMAX 

LDAH 

XTRACK 

SBUH 

XMIN 

JL 

OOR 

JMP 

IF 

XTRACK < XMIN 

LDAH 

VMAX 

SBUH 

YTRACK 

JL 

OOR 

JMP 

IF 

YTRACK > VMAX 

LDAH 

YTRACK 

SBUH 

YMIN 

JL 

OOR 

JMP 

IF 

YTRACKXYMIN 
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* DATA 

IS  IN  FOV 

* 

JGF 

NX5,E  CK  OUT  OR  RANGE  FLG 

TABLE 

ldah 

XTRACK 

LDBH 

VTRACK 

JGF 

NX6, 1 

RETN1 

SRA 

16 

SLLD 

16 

JGF 

NXS, 8 IS  SPECIAL  FLG  SET 

STA 

ST0RE2, 3 

RETN2 

ICL 

S.INUORDS  IS  IT  LAST  WORD 

JU 

ENDC  VES,  END  SECT 

IMP 

2 , 1 , M I NCR  UD  i>NT 

IMP 

3 , 2 , M I NCR  OUT  UD  CNT 

JU 

NXE  RECVCLE 

* 

NX8 

STA 

TEMP+2 

ICL 

a, INUORDS 

JU 

ENDC 

IMP 

a’,  1 , M 

JU 

Nxa 

* 

* DATA  HAS  RETURNED  TO  FIELD  OF  VIEU 

NXS 

JGF 

NX5A , 8 IS  ANYTHING  STORED 

RST 

2 

JU 

TABLE 

NXSA 

LDA 

TEMP  + 2 

STA 

STORES, 3 

IMP 

3,a,M 

RST 

8 

RST 

a RS  OUT  OF  R-NGE  FLG 

JU 

TABLE 

* 

* RESTORE  IMAG 

BIT 

NX  i 

EAB 

LOR 

EAB 

SIGN  SET  IMAG  BIT 

RST 

1 RS  IMAG  FLG 

JU 

RETN1 

* 

* OUT 

OF  RANGE 

SECTION 

* 

OOR 

JGF 

NX?,  a 

SET 

E SET  FLG  IF  NOT  SET 

RST 

8 

JU 

TABLE 

NX? 

SET 

8 SET  SAVE  OOV  DATA 

SET 

1 SET  IMAG  BIT 

JU 

TABLE 

* 

ENDC 

STX 

3 , FOVUDK  SAVE  NO.  UDS 

RT  A 

FOVRTN 

* 

END 

END 

t 

i ' 
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* 

* 

* 

* 

* 


ROTATES  DATA  AND  COMPUTES  INTERSECTIONS 


BEGIN 

SETX 

8290 

ORG 

BEGIl 

* DEFINITIONS 

* 

FRASTEP 

SETX 

8000 

FRESOLUT 

SETX 

8002 

FXACPOS 

SETX 

8004 

FYACPOS 

SETX 

8006 

SINSI 

SETX 

800A 

COSSI 

SETX 

800C 

F3INSI 

SETX 

800E 

FCOSSI 

SETX 

8010 

FOVUDK 

SETX 

8014 

TOFORM 

SETX 

859A 

LINEFEED 

SETX 

8590 

LINEPRT 

SETX 

85  A 8 

TVOUT 

SETX 

7 320 

STORES 

SETX 

A200 

SCANUB 

SETX 

BFEO 

I SECTRTN 

HEX 

0 

SGNXRTN 

HEX 

0 

RNDRTN 

HEX 

0 

SLPRTN 

HEX 

0 

FONE 

DEC 

1 . 0 

TUO 

DEC 

2 . 0 

BIT16 

HEX 

8000 

THIRTEEN 

DEC 

13.0 

IRASTN 

DEC 

229 

SCUDMX 

HEX 

E 

HTEN 

DEC  16 

; 10 

BLK 1 

DE  .16 

i 0 

PC 

HEX 

0 

YSCANST 

HEX 

0 

VSCAN 

HEX 

O 

YSCANP 

HEX 

0 

YSCANNG 

HEX 

0 

XP 

HEX 

0 

YP 

HEX 

0 

XP2 

HEX 

0 

VPS 

HEX 

0 

X0 

HEX 

0 

SLOPE 

HEX 

0 

RECIPRO 

HEX 

0 Rl 

NUMBER  OF  RASTER  L INE£ 
RASTER  RESOLUTION 


X 

V 


POSITION 

POSITION 


NUMBER  OF  UORBS  IN  FOV 
TOP  OF  FORM  ENTRY  POINT 


TV  RASTER  OUTPUT  ENTRY  POINT 
STARTING  LOCATION  OF  DATA  POINTS 


IN  FOV 


HALF  THE  NUMBER  OF  RASTER  LINES  MISSING 
NUMBER  OF  VERTICAL  RASTER  LINES 
THIS  CORESPONDS  TO  S UORDS  S56  BITS 


RECIPROCAL  OF  SLOPE 


XZERO 

HEX 

0 

XL  I MIT 

HEX 

0 

XACPOS 

HEX 

0 

VACPOS 

HEX 

0 

TEMP 

BSS 

6 

* 

RTHALF 

HEX 

FFFF0000 

ALLONES 

HEX 

FFFFFFFF 

BIT2 

HEX 

40000000 

MASK  1 

. HEX 

800001 

MSKIMAG 

HEX 

7FFFFFI 

* 

MASK  HEX 

80000000 

HEX 

40000000 

« 


COMPLEMENT  MASK 


ZIP 

STRTD 


HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

U£X 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 

HEX 


DTRINTR 


2000 0000 
1 0000000 
8000000 
4000000 
2000000 
1000000 
800000 
40000O 
200000 
L0L0040 
80000 
40000 
20000 
1 0000 
8000 
4000 
2000 
1000 
800 
400 
200 
100 
80 
40 
20 
10 
8 

4 

2 

1 

0 

SETX 
ORu 
PTR 


8320 
STRTD 
I SECTRTN 


\y 


25 


* *• 


BASE 

LDX 


S, FONE 
5, FONE . M 


* 

* 


* 

* 


INITIALIZE 

LDA  ZIP 
LXA  1 
LXA  3 
LXA  4 
RST  4 
RST  1 

VERTICAL  RESOLUTION 

CONVERT  FLOATING  RESOLUTION  TO  INTEGER 


WORD  COUNTER 


LDA 

CFX 

SLL 

STAH 


FRESOLLIT 

16 

HTEN 


* 

* 

* 

* 


TRANSLATION  OF  DATA  POINTS 


CONVERT  A/C  POSITION  TO  INTEGER 


NXLP 


NXLP1 


LDA 

FXACPOS 

CFX 

SLL 

16 

STAH 

XACPOS 

LDA 

FYACPOS 

CFX 

SLL 

16 

STAH 

YACPOS 

;nate 

ROTATION 

OF  DATA  POINTS 

LDAH 

STORES , 4 

LD  X PT 

SBUH 

XACPOS 

SUBTRACT  A/C  PC'-' 

STAH 

XP 

LDAH 

ST0RE2+ 1 

,4  LD  Y PT 

SAM 

MASK  1 

IS  IMAG  BIT  SET 

JU 

NXLP  1 

NO , GET  NXT  PT 

AND 

MSKIMAG 

YES,  ELIM  IMAG  BIT 

SET 

S SET 

IMAG  FLG 

SBUH 

YACPOS 

SUBT  A/C  POS 

STAH 

YP 

LDA 

XP 

MUL 

COSSI 

* COS 

JS 

RNDUP 

STA 

TEMP 

XCOS 

LDA 

YP 

MUL 

SINSI 

JS 

RNDUP 

ADU 

AND 

STAH 

LDa 

MUL 

JS 

STA 

LDA 

MUL 

JS 

SBU 

AND 

JGF 

NXLP2  STAH 

I CL 
JU 
IMP 
JU 

* 

RNDUP  PTR 

SAM 
SAM 
RTA 
ADUH 
AND 
RTA 

* 

NXLP3  RST 

LOR 
JU 


TEMP  XCOS+YSIN 
MSKIMAG  ELIM  SIGN  BIT 
STORES, 4 
XP 

SINSI 

RNDUP 

TEMP  XSIN 
VP 

COSSI  VCOS 
RNDUP 

TEMP  VCOS-XS I N 

MSKIMAG  ELIM  SIGN  .BIT 

NXLP3 , 8 IF  FLG  8 SET  RESTORE  * I MAG  BIT 

ST73RES+1 , 4 

4 , F OVldDK 

P4NX 

4, 2,  M 

NXLP  ROTATE  NXT  PPT 

RNDRTN 
MASK  1 
BIT16 
RNDRTN 
1 , M 

RTHALF 

RNDRTN 

8 

MASK1 

NXLP2 


I 


* 

* FIELD  OF  VIED  LOGIC 

P4NX  LDX  4 , 0 , M RS  UD  PTR 

* DETERMINE  FIRST  SCAN  LINE  > 

LDB  ZIP 

LDA  FRASTER  NO.  RASTER  LINES 
MLF  FRESOLUT  RES.  FT/RAST . LINE 
DVF  TUO  /S 

STA  TEMP  USE  IN  MAX  MIN  CAL 

LDB  ZIP  COMPENSATE  FOR  MISSING  26  LINES  ON  TV  DISPLAY 

LDA  FRESOLUT 

MLF  THIRTEEN 

STA  TEMP+2 

LDA  TEMP 

SBF  TEMP+2 

STA  YSCANST  V VALU  1ST  SCN  LN 

LDA  FONE  LD  1 

STA  PC 
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* DETERMINATION  OF  XMAX  & XMIN 


DETERMINE  LEFT  SIDE  LIMIT 
LDA  ZIP 
LDB  ZIP 
SBF  TEMP 

CFX  CONV  FLT  TO  FX 

SLL  1 6 
STAH  XZERO 


DETERMINE  RIGHT  SIDE  LIMIT 
LDA  TEMP 

CFX  CONV  F 

SLL  16 
STAH  XL I MIT 


* BEGIN  SCAN  OF  DATA 
P-4ST  LDA  PC 

SBF  FONE 
MLF  FRESOLUT 
STA  TEMP 

LDA  VSCANST  GT  1ST  SCN  LIN 
SBF  TEMP 

CFX  CONV  FLT  TO  FIX 

SLLD  16 

STAH  VSCAN  SV  CURRENT  SCN  LN 


DETERMINE  HALF  OF  DEELTA  SCAN 
LDB  ZIP 
LDA  FRESOLUT 

CFX 

SLLD  16 

STAH  TEMP  DSC/2 


LDAH  VSCAN 
SBUH  TEMP 

STAH  VSCANNG  VSCAN-DSC/2 


LDAH  VSCAN 
ADUH  TEMP 
STAH  VSCANP 


'*  CHECK  FOR  IMAG  FLAG 


P4NX0 


LDAH  STOPEa+3, A GT  VPE 
SAM  MASK1 


r 


i 


JU 

P4NX1  NOT  INAG 

JU 

P4NX5 

* 

P4NX1 

LDAH 

ST0RE2 , 4 

JS 

SGNX 

STAH 

XP 

LDAH 

STORE 2+ i , 4 

HND 

MSKIMAG  REMOVE  IMAG  BIT 

JS 

aGNX 

STAH 

VP 

LDAH 

ST0RE2+2, 4 

JS 

SGNX 

STAH 

XP2 

LDAH 

ST0RE2+3 , 4 

JS 

SGNX 

STAH 

VP2 

* 

* DETERMINE 

INTERSECTION 

PNXO 

LDAH 

YP  IS  VP  LT  VSCAN  + 

SBUH 

YSCANP 

JL 

PNX3  VES 

* 

f, 

PNV  l 

LDAh 

VP2  IS  VPS  LT  VSCAN 

3 BUn 

SCAN 

Ju 

PNX2  VES 

JU 

P4NX5  NO,  RETURN 

* 

PNX2 

LDAH 

VP2  IS  VPS  LT  VSCAN  * 

SBUH 

VSCANNG 

JL 

COMPINTR  COMPUTE  i hTERs 

* 

SET 

1 

LDAH 

XP2 

JU 

P4NX4A 

* 

PNX3 

LDAH 

VP  IS  VP  LT  VSCAN 

SBUH 

VSCAN 

JL 

PNXS  VES 

* 

PNX4 

LDAH 

VP2  IS  VP2  LT  YSCAN  + 

SBUH 

VSCANP 

JL 

PNX5  VES 

JU 

P4NX5  NO,  RETURN 

* 

PNX5 

LDAH 

VP 2 IS  VP 2 LT  VSCAN  - 

SBUH 

VSCANNG 

JL 

PNX9  GO  DO  DOUBLE  FJLL 

LDAH 

VP2 
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J 


SBUH 

VSCAN 

JL 

FILL 

r 

JU 

P4NXS  NO,  RETURN 

l FNX6 

LDAH 

VP  IS  VP  LT  VSCAN  - 

f 

1 

SBUH 

VSCANNG 

f 

JL 

PNX10  VES 

I * 

1 PNX7 

LDAH 

VP2  IS  VP2  LT  VSCAN 

SBUH 

VSCANNG 

P4NXS  NO.  RETURN 


PNX8 

LDAH 

VPS  IS  VPS 

L T VSCAN 

SBUH 

VSCANP 

• 

JL 

FILL  GO  FILL 

PNX9 

SET 

1 SET  DOUBLE 

FILL  FLAG 

LDAH  XP  XO  = XP 
JU  P4NX4A 


PNX10 

LDAH 

VP2  IS 

VPS  LT  VSCAN 

SBUH 

VSCAN 

JL 

F4NX5  VES,  RETURN 

* 

PNX11 

LDAH 

VPS  IS 

VPS  LT  VSCAN  + 

SBUH 

VSCANP 

JL 

P4NX12 

JU 

COMP INTR 

COMPUTE  INTERSECTION 

P4NX12 

SET 

1 

LDAH 

XPS 

* 

P4NX4A 

STAH 

X0 

JS 

COMPSLP 

JU 

SLOPECHEK 

* 

* INCREMENT 

UORD  POINTER 

* 

P4NX5 

JGF 

DBLF I LL , 1 

IS  DOUBLE  FILL  FLAG 

IMP 

4,5,  M 

RST 

4 

I CL 

4 , FOVUDK 

JU 

OUTPUT 

JU 

P4NX0 

* 

DBLF ILL 

RST 

1 RESET 

DOUBLEFILL  FLAG 

JU 

COMP INTR 

COMPUTE  INTERSECTION 

* 

* RESTORE  NEGATIVE  SIGN 

SGNX 

PTR 

SGNXRTN 

f 

! 
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DETERMINATION  OF  X F 
X VALUE  ASSUMED  TO 
XR8  IS  WORD  COUNT 
XRi  IS  BIT  NUMBER 
FILL  FLAG  = FLAG  4 


IN  SCAN  LINE 
A REG 


* DETERM  IN  WORD  NO.  & BIT  NO 


ST  hH  TEMP 
LDX  8,0, M 

LDX  1 , 0 , M 

SBUH  XZERO  GUI  ' 
J L P 4 N X 1 0 A *. 

LDB  ZIP 

SRA  1 5 

DVD  HTEN 

JS  RNDUP 

SBUH  32,  M 

JL  P4NX11  J l? 

I CL  8 , SCUBMX 

JU  P4NX5  OOF  0 V 

IMP  8 , 2 , M - 0 
JU  P4NX10 


* LINE  ONLY  PARTIALLY  OUT  OF  vIELJ 
P4NX10A  JGF  P4NX10B . 4 IS  FILL  FLG  SET 
JU  P4NX5  NO  RETURN 

P4NX10B  SRA  15  SCALE  FOP  DIVISION 

LDB  ZIP 

DVD  HTEN 

JS  RNDUP 

SRA  IS  S H 1 1*  t TO  LOAD  X R 1 
P4NX10C  JN  P4NX10D  JMP  IF  NEG 

LXA  1 LD  XRI 

JU  P4NX13  GO  FILL 
P4NX10D  ADU  1,M  INCR  A REG 

IMN  2 , 1 , M DECR  FILL  COUNT 
JU  P4NX10C  IF  NOT  ZERO  GO  HERE 

RST  4 

JU  P4NX5  RETURN 


P4NX1 1 


SRA 

15  SHFT  & MLV  X 2 

LX  A 

1 

4/Z 

X PLACE 

W 

BIT  IN 

SCAN  UOkD 

P* 4NX13 

LDA 

SCANUD . 8 GET  SCAN  UD 

LOR 

MASK, 1 ADD  MASK 

STA 

SCANUD, 8 RTN  UORD 

* 

JGF 

P4NX14, 4 IS  FILL  FLG  ' 

JU 

P4NX5  NO,  RETURN 

P4NX14 

RST 

4 RESET  FILL  FLAG 

P4NX14A 

IMN 

£ , 1 , M DECR  FILL  COUNT 

JU 

P4NX15 

JU 

P4NX5  RETURN 

P4NX15 

IMP 

1 , 2 , M 

I CL 

1 . 64 , M IS  IT  64 

JU 

P4NX16  VES 

LOR 

MASK  , 1 

STA 

SCANUD , 8 

JU 

P4NX14A 

* 

P4NX16 

I CL 

8 , SCUDMX  IS  IT  END  OF 

JU 

P4NX5  VES,  RETURN 

IMP 

8 , 2 , M NO,  I NCR  UD  PTR 

LBX 

1 , 0 , M 

LDA 

SCANUD , 8 

LOR 

MASK  , 1 

STA 

SCANUD , 8 

JU 

P4NX14A 

* 

* COMPUTE  SLOPE 

* 

COMPSLP 

PTR 

Si  p tn 

LDAH 

XP2 

SBU 

XP 

JN 

COMPN1 

LDAH 

XP 

JU 

DTRXPO 

COMPN1 

STA 

TEMP 

LDAH 

VP2 

SBU 

VP 

SRA 

15 

LDB 

ZIP 

DVD 

TEMP 

STA 

SLOPE 

RT  A 

SLPRTN 

X 

f 

iET 


* COMPUTE  INTERSECTION 

* 


COMPINTR 

JS 

COMPSLP 

LDAH 

VSCAN 

SBU 

VP 

SRA 

15 

LDB 

ZIP 

DVD 

SLOPE 

JS 

RNDUP 

hDU 

XP 

STAH 

X0 

* 

* FILL 

MODE  FOR  SHALLOW  ANGLES  REl.  TO 

SLOPECHEK  LDA 

2,M  LD  ONE 

LDB 

ZIP 

DVD 

SLOPE  COMPUTE 

JL 

COMPLEMENT 

CKSL 

JS 

RNDUP 

SRA 

16 

CKSL0 

STA 

RECIPRO 

LXA 

2 

I CL 

2, 2,  M 

JN 

CKSLI  RETURN  IF 

0 

JU 

RTNCK  NO,  RETURN 

CKSLi 

LDA 

TEMP  XP2-XP 

JG 

CKSLS 

LDA 

XP 

JU 

CKSL3 

CKSLS 

LDA 

XP2 

CKSLS 

SBU 

xe 

JL 

RTNCK  RETURN  IF 

NEG 

JN 

CKSL4  RETURN  IF 

0 

JU 

RTNCK 

CKSL4 

SRA 

15 

LDB 

ZIP 

DVD 

HTEN 

SRA 

16 

STA 

TEMP+4 

LDA 

RECIPRO 

LXA 

2 

SET 

4 

ICL 

2, TEMP+4 

LDX 

2 , TEMP+4 

ICL 

2 , 2 , M 

IMN 

2 , 1 , M 

JU 

RTNCK  NOT  0 OR 

LESS 

RST 

4 

RTNCK 

LDA 

X0 

JU  DTRXPO 


I 


* FEVERSE  COMPLEMENT 
COMPLEMENT  SBU  1,M 


EXO 

ALLONES 

JU 

CKSL 

* 

* FILL 

COMPUTATION 

* 

FILL 

SET 

4 SET  FILL 

LDAH 

XP 

SBUH 

XPS 

SRA 

15 

LDB 

ZIP 

DVD 

HTEN 

JS 

RNDUP 

JG 

FILLNX 

LBAH 

XP2 

SBUH 

XP 

SRA 

15 

LDB 

ZIP 

DVD 

HTEN 

JS 

RNDUP 

SRA 

16 

LXA 

2 

, 

LDAH 

XP 

JU 

DTRXPO 

FILLNX 

SRA 

16 

1 | ? - 

LXA 

2 

LDAH 

XP2 

JU 

DTRXPO 

? * 

! * OUTPUT  SECTION 

* 

i OUTPUT 

JS 

TVOUT 

; 

JGU 

OLl.l  IF 

L * CLEAR  OUTPUT  BUFFER 

CLRBUFF 

LDA 

ZIP  CLEAR 

l 

LXA 

4 

CLR 

STA 

SCANUD , 4 

IMP 

4 , £,  M 

^ *• 

I C'L 

4 , 1 6 , M 

JGU 

CONTINUE 

JGU 

CLR 

CONTINUE 

LDA 

PC 

ADF 

FONE 

IF  SWITCH  1 SET  OUTPUT  TO  LINEPRINTER  ALSO 


3,  IRASTN 


P 


JGU  0L2 
IMF  3 , 1 , M 
LDX  4,0,M 
JGU  P4ST 

* OUTPUT  TO  LINEPRINTER 

OL1  JS  lIHEPRT 

JGU  CLRBUFF  GO  CLEAR  OUTPUT  BUFFER 

* 

0L2  JGU  0L3.1  IF  LINEPRINT  SU  SET  DO  TOP  OF  FORM 

RTh  isectrtn 

OL3  JS  TOFORM 

RTA  ISECTRTN 


**  VARIAN  PRINTER  PLOTTER  SUBROUTINE 


DATAOUT  SETX 
START  SETX 

ORG 

RASTMODE  HEX 
REMOENAB  HEX 
TOPOFORM  HEX 
SVNCSTEP  HEX 


BFDA 

8S?0 

START 

0BE0 

0B20 

0BB3 

0B23 


RASTER  LINE  DATA  OUTPUT — CONTAINS  3 BLANK  LIDS 


xRasv  HEX 
XR3SV  HEX 
XR4SV  HEX 
UDCOUNT  HEX 
TEMP  HEX 


OUTCMND  HEX  00000A00 


OFRTN  HEX  0 
UAITRTN  HEX  0 
ZIP  HEX  0 


VPPRTN 

TOFRTN 

LFRTN 


LFRTN 

ONE 

SVNCSTEP 
22,  C,  K 
LFRTN 


TFORM 


TOFF  TN 
REMOENAB 
22  , C , K 
ONE 

TOPOFORM 
22  , C , K 
TOFRTN 


VPPRTN 

ZIP 

DATAOUT 
DAT  AOUT  + 2 


CLEAR  LEFT  BORDER  OF  LINEPRINTER 


[ 


f 


\ 

i 

I 


STA 

DATAOUT+4 

STX 

2 , XR2SV  SAVE 

XR2 

STX 

3 , XR3S V SAVE 

REG  3 

STX 

4 , XR4SV  SAVE 

REG  4 

* 

BEGIN 

LDA 

REMOENAB 

DOA 

22 , C , K 

JS 

ONE 

LDA 

RASTMODE 

• 

DOA 

22 , C , K 

RST 

15 

LDX 

1 , 2 , M NUMBER 

OF  VERTICAL  BITS  PER  POINT, 

LP5 

LDX 

4, ZIP  WORD  COUNTER 

LP2 

LDX 

2 , ? , M BIT  COUNTER 

LDA 

Z-IP 

LDBH 

DATAOUT , 4 

SRLD 

16  SHIFT  DATA 

TO  RT  HF  B REG 

LOOP 

SRCD 

1 SHIFT  BIT 

B31  TO  BIT  AO 

SRA 

2 SIGN  EXTEND  A REG  1 BIT 

IMN 

2,1 , M 

JU 

LOOP 

JGF 

LP1  , 1 

STA 

TEMP 

LDA 

ZIP 

LDX 

2, 7 , M 

SET 

1 

JU 

LOOP 

* SET 

UP  TO  OUTPUT  FORMATTED 

DATA 

LP1 

EAB 

JS 

OUT 

LDB 

TEMP 

JS 

OUT 

RST 

1 

INCREMENT 

WORD  POINTER 

IMP 

4,  i,M 

I CL 

4 , UDCOUNT 

IS  LAST  LORD 

JU 

LP3 

VES 

JU 

LP2 

NO 

* REPEAT  LINE 


LP3 

JS 

LF 

IMN  1 

.l.M 

DECREMENT 

VERTICAL  BIT  COUNT 

JU 

LPS 

' • 

LP4 

RST 

15 

* 

RESTORE  INDEX 

REGISTERS 

LDX 

2, XR2SV 

RESTORE 

XR2 

LDX 

3, XR3SV 

RESTORE 

REG  3 

LDX 

4 , XR4SV 

RESTORE 

* 


1 


I 


» 


! 

J 


A 
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r 


i 

I 


* 

* 

* 

* 

* 

* 

* 

START 

TVOUT 

DATAOUT 

* 


TV  RASTER  OUTPUT  ROUTINE 


I 


THIS  PROGRAM  OUTPUTS  TO  A TV  SCREEN 


SETX 
SETX  . 
SETX 


TVDATA 

RASTRTN 

ZIP 

XR4SV 

* 


ORG 

HEX 

HEX 

HEX 

HEX 


RCK 


ORG 
PTR 
STX 
LDA 
DOA 
EMI 
DIA 
SAM 
JU 
LDA 
LXA 
STA 
IMP 
I CL 
JU 
JU 

CONTINUE  LDX 
RTA 


CLR 


END 

END 


8570 

85A8 

BFE0 


OUTPUT  DATA  BUFFER 


START 

FF705FF0 

0 

0 

0 


FIRST  10  BITS  ARE  COMPL  OF  NO.  OF  UDS 
LAST  16  BITS  ARE  START  LOC  OF  DATA  SHFTD  1 
TO  THE  RIGHT  ( BFE0 ). 


BIT 


TVOUT 
RASTRTN 
4 , XR4SV 
TVDATA 
19,  K 


SAVE  INDEX  REGISTER 


19,  K 
1 , M 
RCK 
ZIP 
4 

DATAOUT, 4 
4 , a,  M 
4, 16, M 
CONTINUE 
CLR 

4 , XR4SV 
RASTRTN 


CHECK  WORD  COUNT  ZERO 


CLEAR  BUFFER 


I 
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* PAPER  TAPE  READ  AND  TELETYPE  OUTPUT  ROUTINE 

* 

* 

* 

BEGIN 

CHARSV 
TRRTN 
TTURRTN 
MASK 
ZIP 
ENHSR 
* 

* PAPER  TAPE  READ  ROUTINE 

* PROGRAM  READS  7 BIT  ASCII  CODE  INTO  LOO.  CHARSV 

* PROGRAM  SKIPS  BLANKS 


TAPEREAD 

PTR 

TRRTN 

TAPE0 

LDA 

ENHSR 

ENABLE  READER 

DOA 

1 6 , C , K 

OUTPUT  ENABLE 

T APE  1 

DIA 

1 6 , C , K 

READ  STATUS 

SAM 

16384  , M 

IS  TAPE  READER  PDY 

JU 

TAPE2 

YES,  GO  READ  CHAR 

JU 

T APE  1 

HO,  CK  AGAIN 

TAPE2 

DIA 

16,  K 

INPUT  CHAR 

AND 

127,  M 

MASK  PARITY 

STA 

CHARSV 

SAVE  CHARACTER 

JN 

TAPE3 

IS  CHAR  A BLANK  (00) 

JU 

TAPE0 

YES,  READ  AGN 

TAPES 

RTA 

TRRTN 

RETURN  FROM  SUBROUTINE 

* TELETYPE 

OUTPUT  ROUTINE 

* DATA 

* 

TTYURITE 

ASSUMED  TO  BE  IN  B REG.  LEFT  JUSTIFII 

PTR 

TTURRTN 

TTYO 

DIA 

1 6 , C , K 

READ  STATUS 

SAM 

32768,  M 

IS  TTY  BUSY 

JU 

TTYOl 

NO,  OUTPUT  CHAR 

JU 

TTYO 

YES,  CK  AGN 

TTYOl 

LDA 

ZIP 

CLEAR  A PEG . 

SLLD 

8 SHIFT  8 BITS  TO  A REG. 

JN 

TTY03 

OUTPUT  IF  NOT  ZERO 

RTA 

TTURRTN  GO  TO  RTN  IF  ZERO 

TTY03 

LOR 

MASK 

SET  TTY  OUTPUT  BIT 

DOA 

16,  K 

OUTPUT  CHAR. 

JU 

TTYO 

GO  OUTPUT  NXT  CHAR 

END 

END 

> 


f > 


SETX  8630 
ORG  BEGIN 
HEX  0 
HEX  O 
HEX  0 

HEX  80000006 
HEX  0 

HEX  02BA1 AED 


* 

* 

* 

* 

* 

* 

* 

M 

* 

* 

* 

* 


PROGRAM  TO  FORMAT  AND  COMPRESS  CONTOUR  DAl 


FOLLOUING  FOX 
XXXX/'YYYY  , EOf- 


THIS  PROGRAM  ACCEPTS  DATA  IN  THE 

*XXXX/YVVV 

THE  * INDICATES  HIDDEN  LINES 

EOT  IS  THE  END  OF  TAPE  CHARACTER  — 04 
EOF  IS  AN  END  OF  FILE  CARD  --  MULTIPUNCH 

FAST  SCRATCH  PAD  MEMORY  ASSIGNMENTS 


6 'c 


SUM 

SETX 

3E0O 

SV1 

* 

SETX 

3E02 

I14TRP 

SETX 

7FBC 

I14RTN 

SETX 

' 7FFC 

BEGIN 

SETX 

90C& 

ORG 

BEGIN 

INSTR1 

JGU 

PUNTRP 

ENABLP 

HEX 

02BA616D 

DISIO 

HEX 

02DA616D 

TEMP 

BSS 

8 

INT14 

HEX 

80000000 

RUBOUTS 

HEX 

7F7F7F7F 

EOT 

HEX 

00000004 

EOF 

HEX 

0000003E 

ASTER 

HEX 

0000002A 

SPACE 

HEX 

00000020 

COMMA 

HEX 

0000002C 

SLASH 

HEX 

0000002F 

SIGN 

HEX 

80000000 

LMINUS 

HEX 

2D000000 

LSPACE 

HEX 

2000000® 

MASKS 

HEX 

7FFFFFFF 

MASK 30 

HEX 

00000030 

MASK  40 

HEX 

0000004® 

ORANGE 

HEX 

00O0003F 

SCFACT 

HEX 

0000000 1 

ONE 

HEX 

00000001 

TEN 

HEX 

0000000A 

HUND 

HEX 

00000064 

THOU 

HEX 

0W0003E8 

TENTHOU 

'■k 

HEX 

00002710 

DATAUD 

HEX 

0 

XVALUE 

HEX 

0 

YVALUE 

. HEX 

0 

INTERRUPT 

INTERRUPT 


14 

14 


TRAP 

TRAP 


LOCATION 

RETURN 


PUNCH  TRAP  UAIT  LOOP 
ENABLE  PUNCH 
DISABLE  ALL  DEVICES 


END  OF  FILE  CHARACTER 
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XBINARY 

HEX 

0 

VBINARV 

HEX 

0 

XTOTAL 

HEX 

0 

YTOTAL 

HEX 

0 

XDIFF 

HEX 

0 

YDIFF 

HEX 

0 

MAXDEL 

HEX 

0 

COMPDATA 

HEX 

0 

ASCTRTN 

HEX 

0 

MESSORTN 

HEX 

0 

KOUNT 

HEX 

0 

DUMMY 

HEX 

0 

RTN 1 

HEX 

0 

RTN2 

HEX 

0 

PUNRTN 

HEX 

0 

* 

JGU 

T + 4 , 0 IS  SU  0 SET 

JS 

MESSO  NO  TYPE  MESSAGE 

* 

* PUNCH 

LEADER 

* 

LEADER 

LDX 

1.25.M  YES 

LDB 

RUBOiiTS 

JS 

PUNCHR  PUNCH  LEADER 

IMN 

1 , 1 , M 

I CL 

1 , i , M 

JGU 

LEaBEP+2 

* INITIALIZE 

SECTION 

* 

INIT 

LDX 

1 , 0 . M 

LDX 

2 , 0 , M 

LDX 

3 , 0 , M 

LDX 

4 , 0 , M 

LDX 

5 , 0 . M 

LDX 

6 , 0 , M 

LDX 

7 . 0 , M 

RST 

15  RESET  ALL  FLAGS 

SET 

1 SET  FLAG  1 

LDA 

0 . M CLEAR  A PEG I STEP 

STA 

D A T m U D 

* 

# 

* READ  CARD 

* 

RC  LDX  8,0,M  CLEAR  BUFFER  POINTER 

JS  RDPRNT  READ  h CARD  AND  LIST  ON 
* CHECK  FOR  END  OF  FILE  CARD 
LDA  0,M 


L I NEPP INTER 


LDBH  CARDBUFF  LOAD  FIRST  CHARACTER  ON  CARD 
SLLD  8 SHIFT  CHARACTER  TO  A REGISTER 

LXA  9 LOAD  INDEX  REGISTER  FOR  CHECK 

ICN  9, EOF  IS  IT  AN  END  OF  FILE 
JGU  PNCHEOF  GO  PUNCH  AN  EOF  ON  PAPER  TttPE 

* BEGIN  CHECK  OF  CHARACTERS 

CKO  LDA  0 , M CLEAR  A REGISTER 

LD6H  CARDBUFF , 8 GET  CHARACTER 

SLLD  8 SHIFT  CHARACTER  TO  A REGISTER 

STA  TEMP  SAVE  CHARACTER 

LXA  9 TRANSFER  TO  REGISTER  FOR  CHECKING 

ICN  9, SPACE  IS  IT  A SPACE 

JGU  I NCR  NO,  GO  INCREMENT  BUFFER  POINTER 

* CHECK  IF  IT  IS  A NUMBER 

I CL  9 , 58 , M IS  IT  LESS  THAN  58 
JGU  CK1  NO,  NOT  A NUMBER 
I CL  9 , 48 , M YES,  IS  IT  LESS  THAN  48 

JGU  PACK  NO,  IT  IS  A NUMBER  - GO  PACK 

CK1  ICN  9, SLASH  IS  IT  A SLASH 

JGU  XEND  YES,  TERMINATE  X FIELD 
ICN  9, COMMA  IS  IT  A COMMA 
JGU  VEND  YES,  TERMINATE  Y FIELD 
ICN  9, ASTER  IS  IT  AN  ASTERISK 
JGU  HFLAG  YES,'  GO  SET  HIDDEN  LINE  FLAG 

JGU  EPMES1  NO,  THEN  IT  IS  AN  INVALID  CHARACTER 

HFLAG  SET  S YES,  SET  HIDDEN  LINE  FLAG 

JGU  I NCR  GO  INCREMENT  BUFFER  POINTER 


* INCREMENT  BUFFER  POINTER 

INCR  IMP  8 , 1 , M INCREMENT  BUFFER  POINTER 

I CL  8 , 80 , M IS  IT  END  OF  CARD 

JGU  I NCR 1 YES,  GO  TERMINATE  LINEPPINTER  LINE 

JGU  CKO  NO,  GET  NEXT  CHARACTER 
INC-R1  LDB  LEFTCR  TERMINATE  LINEPPINTER  LINE 
JS  LPMESG  OUTPUT  CP 
JGU  RC  GET  NEXT  CARD 


PNCHEOF  LDB  EOT  LOAD  END  OF  TrtPE  CHARACTER  FOR  OUTPUT  TO  TAPE 
SLLD  84  POSITION  CHARACTER  FOR  OUTPUT 
JS  PUNCHR  GO  PUNCH  EOT  CHARACTER 

HLT 

JGU  LEADER  GO  BEGIN  AGAIN 


* NUMBER  PACK  ROUTINE 


LDA  TEMP 
fiND  15  . M 
STA  TEMP 


PACK 


r 


LDA 
SLL 
LOR 
ST  ft 
IMP 
ICL 
JGU 
JGU 


DATAUD 

A 

TEMP 
DATAUD 
2, 1 , M 

a,  s,  m 

ERMES2 
I NCR 


INPUT  DATA  OUT  OF  RANGE 

GO  INCREMENT  BUFFER  POINTER 


* TERMINATE  FIELD  NO.  1 

* 

XEND  LDA  DATAUD 
STA  XVhLUE 
LDA  0 , M 
STA  DATAUD 
LDX  5 , 0 , M 
JGU  I NCR 


GO  INCREMENT  BUFFER  POINTER 


* TERMINATE  FIELD  NO. 

* 

VEND  LDA  DATAUD 

STA  V VALUE 
LDA  O . M 
STA  DaTaUD 
LDX  2 , 0 , M 
LDA  X VALUE 
JS  'BBC 
STA  XBINARV 
LDA  YVALUE 
JS  DBC 
STA  VBINARV 
JGU  UDCOMR 

* 

* DECIMAL 

* 

DBC 


DECIMAL  TO  BINARY  CONV 


SHCVL 


, TO 

B I NAP Y 

CONVERSION  ROUT 

PTR 

PTN 1 

STA 

SV1 

LDS 

8192 , 

M SET  SR6 

LDA 

0,  M 

STA 

SUM 

LDB 

0 , M 

LDX 

5 , 0 . M 

SET  UP  PTR 

LDA 

SV1 

AND 

IS,  M 

MA5K 

MUL 

ONE  , 5 

MUL  BY  UNITS 

SRAB 

1 

EAB 

ADUR 

SUM  . 7 

ADD  TO  FAST  SCR 

44 


SREST 

* 

* WORD 

* 

UDCOMR 

NX2 


NX1 


IMP 

S,2,M  INC  BV  2 

ION 

S, 10, M HAS  IT  BEEN  5 CHAR 

JGU 

SREST  VES 

LDA 

SV1  NO 

SRA 

<4 

STA 

SV1 

ICN 

5 , 8 , M HAVE  4 CHAR  BEEN  PROCESSED 

JGU 

* + 4 

JGU 

SHCVL 

LX  A 

0 

ICL 

0 , 7 , M XR0  < 7 

JGU 

* + 4 

JGU 

SHCVL 

JGU 

ERMES3  CONV  DATA  OUT  OF  RANGE 

LDA 

SUM 

RTA 

RTN1 

COMPRESSION  ROUTINE 

JGF 

NX2 , 1 

JGU 

NX  1 

LDA 

XBINARV 

STA 

XTOTAL 

LDA 

DRANGE 

MUL 

SCFACT 

EAB 

SRA 

1 

STA 

MAXDEL 

LDA 

YBINARV 

STA 

YTOTAL 

RST 

1 RSET  INITIAL  FLG 

JGU 

STRTUD 

LDA 

XBINARY  CK  MAG  X 

SBU 

XTOTAL  FIND  DELTA  X 

STA 

XDIFF  SAVE  DIF 

JAG 

:*  + 8 JMP  IF  DELX  + OR  0 

ADU 

MAXDEL  ADD  MAX  DELTA 

JAL 

STRTUD  JMP  IF  - 

JGU 

* + 6 

SBU 

MAXDEL 

JAG 

STRTUD 

LDA 

YBINARY 

SBU 

YTOTAL 

STA 

YDIFF 

JAG 

*+8 

ADU 

MAXDEL 

JAL 

STRTUD 

JGU 

:*  + 6 USE  DELTA  FORMAT 

45 


t 


SBU 
J A Ci 


MaXDEL 

STRTWD 


DELTA  WORD  FORMATTING  ROUTINE 


LDA 

XBINAR 

u 

STA 

XTOTAL 

LDA 

VB I NAP 

y 

STh 

VTOThL 

IMP 

1.1,  M 

LDA 

0 , M 

STA 

CO MP DA 

TA 

LDA 

XDIFF 

AND 

127.  M 

M 

LOR 

COMP  DA 

Th 

SLL 

8 

ST  A 

COMPDA 

TA 

LDA 

YD  IFF 

AND 

Id?  , M 

JGF 

NX3 , 2 

I 

JGU 

:■*.  + 4 

LOR 

128  , M 

LOR 

COMPDA 

TA 

SLL 

16 

EAB 

RST 

2 

RE 

J S 

A SC MUM 

GARBAGE 


FLG  SET 


LDB 

JS 

JGU 


LbPACE 

LPMESG 

CONTINUE 


ET  IMAG  FLG 
LOAD  SPACE 

OUTPUT  TO  LINEPPINTER 


OUTPUT  TO  PAPER  TAPE  AND 
OUTPUT  TO  TTV  IN  ASCII  NUMBERS 
ASSUMES  DATA  IN  B REGISTER 
16  BIT  OR  4 CHAR  OUTPUT  IN  HEX 


FORTV 


PTP 

ASCTRTN 

LDX 

5,0,  M 

LDA 

0 , M 

STA 

TEMP+2 

CLR 

SLLD 

4 

SHIFT  CHAR  TO  A 

STA 

TEMP 

SV  CHAR 

SBU 

9,  M 

SUBTRACT  9 

JAL 

THIRTY 

JMP  IF  < 9 

J AN 

FORTY 

JMP  IF  NOT  0 

JGU 

THIRTY 

LOR 

MASK40 

ASCII  LETTER  CODE 

THIRTY 


JGU  $+6 

LDA  TEMP  RECOVER  CHAR 
LOR  MASK30  ASCII  NUMBER  CODE 
STA  TEMP  SV  CHAP  CODE 
LDA  TEMP+2  LOAD  CURRENT  UD 
SLL  8 MK  RM  FO  NX  CHAR 
LOR  TEMP  ADD  NX  CHAR 
STA  TEMP+2  SV  CURRENT  UD 
LDA  0 , M 

IMP  5 , 1 , M 

I CL  5 , 4 , M 

JGU  * + 4 

JGU  ASCVL 

LDB  TEMP+2 

JS  LPMESG  OUTPUT  TO  LINEPRINTER 

LDB  TEMP+2 

JS  PUNCHR 

RTA  ASCTRTN 

* 

* START  LORD  FORMATTING  ROUTINE 

* 

STRTUD  LDA  XBINARY 

STA  XTOTAL 

SLL  16 

LOR  SIGN  SET  SIGN  BIT 
IMP  1,1, M I NCR  UORD  COUNT 
EAB 

JS  ASCNUM  OUTPUT  TO  TTV 

LDB  LMINUS  LOAD  DASH 

JS  LPMESG  OUTPUT  TO  LINEPRINTER 

LDA  YBINARV 

STA  YTOTAL 

SLL  16 

JGF  PL6 , 2 CK  I MAG  FLG 
AND  MASKS 

JGU  *+4 

PL6  LOR  SIGN 

RST  2 

IMP  1,1,  M 

EAB 

JS  ASCNUM  OUTPUT  Y TO  TTY 

LDB  LSPACE  LOAD  SPACE 

JS  LPMESG  OUTPUT  TO  LINEPRINTER 

JGU  CONTINUE 

* 

CONTINUE  LDA  0,M  CLEAR  A REGISTER 
STA  DATAUD 

JGU  I NCR  GO  INCREMENT  BUFFER  POTNTER 


ERROR  MESSAGES 


5 , M 

KOUNT 

TEMP 

LPMESG 

ERRM1 

DUMMY 

MESSOUT 

I NCR 


OUTPUT  TO  LINEPRINTER 


GO  INCREMENT  BUFFER  POINTER 


8,  M 

KOUNT 

ERRM2 

DUMMY 

MESSOUT 

I NCR 


GO  INCREMENT  BUFFER  POINTER 


7,  M 

KOUNT 

ERRM3 

DUMMY 

MESSOUT 

CONTINUE 


* MESSAGE  OUTPUT  ROUTINE 


MESSOUT 


PTR  MESSORTN 
LDX  4 , 0 , M 
LDB  DUMMY,  I 

JS  LPMESG  OUTPUT  TO  LINEPRINTER 
LAE  DUMMY , I 
ADU  2 , M 
STA  DUMMY 
IMP  4 , 1 , M 
I CL  4, KOUNT 
RT  A MESSORTN 
JGU  MESSOUT  + 4 


RTN2 

15,  M 

KOUNT 

MESS1 

DUMMY 

MESSOUT 

RTN2 


* PROGRAM  TO  READ  CARDS  AND  LIST  ON  LINEPRINTER 

* 

* SWITCH  3 INHIBITS  LINEPRINTER 


* SWITCH 

* 

RRRTN 

* 

RDPRNT 

NXTCD 


PRNTCD 


TERMLN 


PTR 

JS 

LDX 

LDBH 

JS 

IMP 

I CL 

JGU 

JGU 

LDB 

JS 

RTA 


RRRTN 

READCD  GO  READ  A CARD 

l,d,M  INITIALIZE  BUFFER  INDEX 

CARDBUFF , 1 GET  STORED  CHARACTER 


LPMESG 
1 , 1 , M 
1 , SO, M 
TERMLN 
PRNTCD 
LEFTCR 
LPMESG 
RRRTN 


OUTPUT  CHARACTER 
INCREMENT  BUFFER  INDEX 
TEST  FOR  END  OF  CARD 

END , TERMINATE  LINE  ON  LINEPRINTER  WITH  CR 
NOT  END,  PRINT  NEXT  CHARACTER 
LOAD  B REG  WITH  CODE  FOR  CARRIAGE  RETURN 
OUTPUT  CARRIAGE  RETURN  TO  LINEPRINTER 
RETURN 


* SUBROUTINE  READCD 

* READ  ONE  CARD  INTO  CARDBUFF 

* DATA  IS  STORED  IN  HALFWORDS  LEFT  JUSTIFIED 

* 


LEFTCR 

HEX 

OD 00O00O 

CARDRTN 

HEX 

0 

CARDBUFF 

* 

READCD 

BSS 

SO 

PTR 

CARDRTN 

LDX 

1 , 0 , M 

INITIALIZE  BUFFER  INDEX 

CD  LIT 

DIA 

S3 

GET  CARDREADER  STATUS 

SAM 

256  , M 

CHECK  CR  READY 

JGU 

CDWT 

WAIT  FOR  READY 

CDLOOP 

DIA 

23  READ  CARDREADER  STATUS 

4096, M CHECK  FOR  CYCLE  FINISHED 
CDU  CYCLE  COMPLETE,  CONTINUE 
CDLOOP  NOT  FINISHED  YET,  CHECK  AGAIN 


DOA 

DIA 

SAM 

JGU 

AND 

SLL 

STAH 

IMP 

I CL 

RTA 


2 3 , C PICK  A CARD 
S3  READ  STATUS 
512, M CHECK  IF  DATA  PDY 
CDS  HOT  READY,  CK  AGAIN 
137, M RDY , KEEP  7 DATA  BITS 

24  LEFT  JUSTIFY 

CARDBUFF, 1 STORE  CHARACTER 
1,1, M INCREMENT  BUFFER  INDEX 
1 , SO , M TEST  FOR  END  OF  CARD 
CAPDRTN  END,  EXIT 
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JGU 


CDS 


NOT  END,  GET  NEXT  CHARACTER 


* 

* 

* 

* 

* 

LPRTN 

* 

LPMESG 


SUBROUTINE  LPMESG 


CALL  JS  LPMESG 
DATA  TO  BE  PRINTED 


IN  B REG  LrFT  JUSTIFD 


HEX 


0 


PTR  LPRTN 
__  JGU  L P 3 , 3 SKIP  LINE  PRINTER  IF  SU  3 SET 

SEND  REMOTE  ENABLE 


LDA 

2848, M 

DOA 

22  , C , K 

* 

CHECK 

FOR  RDV 

DIA 

22 

READ  STATUS 

SRC 

2 

JL 

*-2 

NOT  RDV , UAI T 

* 

SEND 

CHAR  MODE 

SELECT 

* 

LP2 


LDA  2880, M 
DOA  2 2 , C , K 

CHECK  FOR  NOT  BSV 
DIA  22 
SRC  3 

JL  *-2  BSV,  WAIT 
PUT  ASCII  CHARS  OUT  TO  LP 
LDA  0 , M 
SLLD  8 
JN  LP  1 

JU  BOF 


BRING  NEXT  CHAR  TO  A 
NOT  ZERO, PROCEED 
ZERO  DATA , CK  BOF  AND  RETURN 


LP  1 

LOR 

2048 , M 

SET  SINGLF  CHAR 

DOA 

22,  C,  K 

OUTPUT  CHAR 

* 

CHECK 

FOR  RDV, 

BSV, PC  BSV 

DIA 

22 

SAM 

1 4 , M 

CK  3 BITS 

JGU 

LP2 

OK, GET  NFXT  CHAR 

JGU 

*-S 

NOT  OK,  UAIT 

* 

BOF 

DIA 

22 

CHECK  FOR  BOTTOM  OF 

SRC 

S 

JRG 

LP3 

NO  BOF,  RETURN 

* 

BOF  FOUND  - ISSUE  TOF 

LDA 

2995, M 

DOA 

22, C, K 

* 

UAI T FOR  PC  NOT  BSV 

DIA 

22 

SRC 

4 

JL 

*-2 

BSV,  UAIT 

LP3 

RT  A 

LPRTN 

RETURN 

FORM 
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r 


s 

r 

r 

: 

■: 

I 

f 


* 

* PUNCH  ROUTINE  (ASSUMES  DATA  IN  B REGISTER) 

* 


PUNCHR 

PTR 

PUNRTN 

LDA 

INSTR1 

SET  UP  TRAP 

STA 

I14TRP 

JMP  FOR  INT 1 4 

LDA 

ENABLP 

ENABLE  PUNCH 

DOA 

1 6 , C , K 

ISSUE  COMMAND 

LDA 

0 , M 

PCVL 

SLLD 

8 

JN 

PUN 

JMP  IF  NOT  0 

LDA 

D I S 1 0 

DISABLE  ALL. DEVICES 

DOA 

16  , C , K 

ISSUE  COMMAND 

DPI 

DISABLE  PROGRAM  INT 

RT  A 

PUNRTN 

* 

PUN 

DOA 

16,  K 

OUTPUT  CHAR 

LDA 

I NT  1 4 

STA 

TEMP 

LDI 

I NT  1 4 

EPI 

* DAI T 

FOR  FINISH  LOOP 

UAIT3 

LDA 

TEMP  IS 

FLG  SET 

JN 

UAIT3 

JU 

PCVL 

* TRAP 

LOOP  FOR  PUNCH 

PLINTRP 

LDA 

0,  M 

STA 

TEMP 

LDA 

ENABLP  RS 

PUN  INT 

DOA 

1 6 , C , K 

RTA 

I14RTN 

* 

* 

ERRM1 

HEX 

30303030 

SP 

HEX 

494E564  1 

INVA 

HEX 

4 C 4 9 4 4 3 0 

L I D_ 

HEX 

43484153 

CHAR 

HEX 

0D0Aa030 

CRLF 

* 

ERRM8 

HEX 

0D0A2030 

CRLF 

HEX 

494E5055 

I NPU 

HEX 

5420444 1 

T_D  A 

HEX 

54412020 

TA 

HEX 

4F5554E0 

OUT_ 

HEX 

4F  468053 

OF_R 

HEX 

414E4745 

ANGE 

HEX 

0D0A2020 

CRLF__ 

t 


jj 


» 


A 
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ERRM3 

HEX 

0D0A2020 

CRLF  j._ 

HEX 

434F4E56 

CONV 

HEX 

20444154 

_DAT 

HEX 

4 1 204F55 

A_OU 

HEX 

54204F  46 

T_OF 

HEX 

20524 1 4E 

_RAN 

± 

HEX 

47450D0A 

GECRLF 

♦ 

MESSi 

HEX 

0D0A2020 

CRLF 

HEX 

44415441 

DATA 

HEX 

20434F4D 

_COM 

HEX 

50524553 

PRES 

HEX 

53494F4E 

SION 

HEX 

2050524F 

_PRO 

HEX 

4752414 D 

GRAM 

HEX 

0D0A2020 

CRLF 

HEX 

53574954 

SUIT 

HEX 

434d2023 

CH_# 

HEX 

30205354 

0_ST 

HEX 

4F505320 

OPS_ 

HEX 

5052494E 

PRIN 

HEX 

54204F55 

T_OU 

HEX 

54200D0A 

T_CRLF 

* 

> 


END 

END 


